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SECTION 01 
DOCUMENTATION 



INTRODUCTION 

This section contains notation conventions used in this document and a table 
listing the distribution date, the distribution number, and the current oages 
of each section. 
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NOTATION CONVENTIONS 



Throughout this document the following notation is used: 

1 . Material in square brackets [ j represents an option which may be included 
or omitted at the user's choice . 

2. Material in braces < > indicates that a choice of the contents is to be 
made . I J 

3. Upper case letters must be present in the form indicated, if used. 

4. Lower case words represent generic quantities whose value must be supplied 
by the user. These may be names, integer amounts or alphameric literals. 

5. The order in which options are exercised on the various cards is not critical 
unless otherwise specified. 
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SECTION 02.00 



COMPILER 



INTRODUCTION 

The 709/7090 Commercial Translator Compiler under the direction of the 
Commercial Translator Supervisor analyzes Commercial Translator Data, 
Procedure and Environment Descriptions and CRYPT symbolic machine 
language instructions and produces a relative binary object program deck. 
Description of the control cards which direct compilation, discussion of 
compiler output, amplification of source language rules, and a general 
discussion of input/output facilities are presented in this section. 
Discussion of compiler operation appears in section 05 and a detail 
description of object code generated by the Compiler appears in Appendix 
90.02. Current compiler restrictions, limitations and/or deferred features 
are found in Appendix 90.01 . 
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02.01 Compiler Control Cards 



A. $CMPLE Card 

A $CMPLE card must precede each source language program. It is recognized 
by the Commercial Translator Monitor (CTM) for purposes of operational control 
and interpreted by the Commercial Translator compiler to initiate processing 
of source language statements. The general form of the $CMPLE card is: 



1 - 6 
$CMPLE 



8 
deck, 



■ 13 
name 



where 
deck. name 



[TnodeckJ 



[list] 
[>q] 



16 



QdictI 
HfileJ 



[nodeck] Qlist] 
p-oadj q, logic! 

QAAP} jTNOGO J 

55 - 72 

{secondary . identifiejj 



is the primary deck identifier composed of six or 
• ess cnaracters chosen from the set appropriate 
for use in CT names. The name may begin in 
any of the positions but must not include 
imbedded blanks. Leading blanks are ignored 
by the compiler. 

The complete deck. name is punched in columns 
1-6 of all Loader symbolic control cards in the 
generated object deck for use in cross referencing 
when multiple decks are combined at load time. 

The options used must not be separated by blanks 
as the first blank terminates the list of options. 
The options must be separated only by commas . 

instructs the Compiler to omit punching of an 
object deck. Normally, an output deck is 
produced except when a severe error has been 
encountered curing compilation. The severity 
value (code) is used to determine whether a deck 
will be produced when NODECK is not specified. 
!f the severity code is 



nrni-li i/~o<~l 



instructs the compiler to produce a symbolic listing 
of the generated instructions. Normal compiler 
action produces no symbolic list. 

instructs the compiler to list the dictionary giving 
the relative locations of al! names used in the 

object program. Normally a dictionary is not 



[Tload] 



Qogic] 



[[files] 

[Tmap] 
[7nogo| 

fjsecondary .identified 



*FINISH card 
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instructs the compiler to write the object program 
on a system utility tape and turn control over to 
the Loader for loading the program after compilation. 
A map will be produced if the LOGIC option has 
been specified. The program will be executed 
unless the NOGO option has been taken, or the 
Compiler has encountered a source program error 
with a severity code greater than 1 or an undefined 
symbol in the code which it has generated. 

instructs the Loader to list the origin and extent 
of all program sections, system subroutines required 
for execution (including IOCS) and buffer assignments. 
The LOAD option is automatically initiated by LOGIC 
and unless the NOGO option is specified the program 
will also be executed. 

requests that a list of the l/O unit assignments 
made by the Loader be output on SYSOU1 whether 
or not the program is to be executed. 

is an option yet to be specified for obtaining 
additional load-time information. 

instructs the Loader not to allow execution of the 
program after loading it. This does not inhibit the 
LOGIC and FILES options. 

provides the Compiler with identifying information 
to be printed in heading of the output listing pre- 
pared on SYSOU1 • It is also punched in the 
*CTEND Loader control card. Any character may 
be used in any of the positions, columns 55 through 72, 



The *FINISH card delimits the extent of the source language statements to be 
compiled. The form of the card is: 



7 
*FINISH 



Note that this card must be followed by an end of file (see 04.02 and 05.03) . 
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02.02 Compiler Output 



The normal expected Compiler output is: 

A. A relocatable column binary deck (see Appendix 90.03 for detailed format) 
unless the NODECK option has been selected or a severe error has been 
encountered during compilation. 

1. Symbolic Control cards 

2. *CTEXT 

3. Relative Binary Program Deck 

a) Control Break Table 

b) File Check Table 

c) Text 

4. *CTEND 

B. List Tape containing 

1 . Source Program 

The source program is listed with certain additions. 

a) First column - source program card sequence numbers. 

b) Second column - statement number assigned by the Compiler to the 
Procedure sentence, Data Description entry or Environment card. 

ti uOi i he iorm xxxxx,uu. 

c) Third column - body of source program cards (columns 7-72) . In 
some cases, names generated by the Compiler, i.e., GN)nnn, 

are shown in the name field of Procedure statements or Data entries 
unnamed by the programmer. 

2 . Error Messages 

A complete list of all error messages output by the Compiler appears in 
Appendix 90.04. Cross referencing between the source program and the 
error mftssnnp list !c mr*Aa fkmnnU *U« ,.4.—* l i ... ■ ■ .■ 

Compiler. There are from three to six digits in the statement numbers. 
The last two are separated from the preceding digit(s) by a comma and 

theV tell which clause is hiainn roforonra/J TU« J:_:«./.\ I' _ 1.1. . 

. .._, . „.w.»,.,,.wv« . imc (jiyny^ pic^cuiny rne 

comma tell which line is being referenced. The statement number 
9999,99 is an exception. It is used to reference errors which are not 
confined to a single source statement. 

3. File list 

4. Assembly listing if LIST was selected and no severe error was encountered 
during compilation, (see Appendix 90.02 for guide to interpretation 

of this listing). 

:. An intermediate rape containing a deck of the form described in (A) above 

will be produced if the object deck is to be loaded immediately after 



'■!-■ 



709/7090 Commercial Translator 
1 (10/61) 02.03.01 



02 . 03 General Programming Considerations 
A. Use of Coding Forms 

1 . Card serial numbers in columns 1-6 of source decks are not sequence checked 
by the compiler. 

2. Continuation of Specifications on Multiple Lines 

a) General Rule 

Data and Environment entries using more than a single card for 
complete specification have a non-blank character in column 72 
to indicate that the following card is part of the same entry. 
Continuation of Procedure text on successive lines is determined 
by the nature of the text; no continuation character is used. 

b) Data and Environment Names 

All imbedded and leading blanks in the name fields of cards 
associated with an entry are eliminated and the non-blank 
characters are compressed to form a single name. 

c) Determination of Break Points 

In all sections each word or literal must be complete upon a line 
since the processor assumes a blank following column 72 of Procedure 
lines and replaces the contents of column 72 with a blank in Data 
and Environment lines. The only exception to this rule is introduced 
by the manner in which the 7090 processor handles literals in the 
Data Description. Literals in this section which are continued on 
"multiple lines in violation of the rules given on page 83 of the 
General Information Manual are handled correctly. Use of this 
characteristic of the 7090 processor should not be made if 
compatibility with other processors is desired. 

d) Continuation of Data Description Entries 

The name and description fields only of Data Description entries may 
be continued. All other specifications to be made for an entry must 
be made on the first card of that entry since these fields are not 
scanned on continuation cards. 

3. Termination of Statements and Entries 

a) Procedure statements are terminated by the first period (.) followed 

by a blank. Any information following this period blank is considered 
to be commentary . 



709/7090 Commercial Translator 
1 (10/61) 02.03.02 



b) 



Data and Environment entries are considered complete when column 
72 is blank. The period (.) must not be used to signal completion. 
In these sections, a period is considered part of the previous word 
thus creating an undefined name. 



B. Key Words 



Many of the reserved Commercial Translator words are usable as Procedure, Data 
and Environment names in certain situations as shown in the following key word 
lists. However, it is strongly recommended that the entire group be avoided 
altogether. 



1. 



The following words are always interpreted as Key words and may not be 
used as programmer names in any division. 



BEGIN 

FILE 

FOR 

HIGH. VALUE 

HIGH. VALUES 

IN 

LOW. VALUE 



LOW. VALUES 

ON 

RECORD 

WHEN 

ZERO 

ZEROS 



The following words may not be used as Data or Procedure names: 



ABS 


END 


ADD 


ENTER 


ALL 


EQUAL 


AND 


EQUALS 


AT 


EXACTLY 


BLANK 


FILES 


BLANKS 


FROM 


CALL 


GET 


CLOSE 


GIVING 


COMMERCIAL 


GO 


CORRESPONDING 


IDEATED 


CRYPT 


GT 


DISPLAY 


HERE 


DO 


IF 



INCLUDE 


QUANTITY 


iS 


RUN 


LESS 


SECTION 


LIBRARY 


SET 


LOAD 


STOP 


LT 


THAN 


MOVE 


THEN 


NOT 


TIMES 


NOTE 


TO 


OPEN 


TR 


OR 


TRANSLATOR 


OTHERWISE 


TRUNCATED 


OVERFLOW 


USING 


f^\/CDl A D 


ll/ITU 

yv 1 1 r i 
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3. The following key words may be used as Procedure and Data names providmg 
it is not necessary to reference the procedure or data items in the 
Environment Division: 



ACTIVITY 


COM 


LOW 


SEQ 


BCD 


CONSERVE 


MULTI 


SERIAL 


BINARY 


CONTROL 


NO 


SPACE 


BLOCK 


DEFER 


OPENCOUNT 


SPANS 


BLOCKSIZE 


ERROR 


OPENF 


TAPE 


BUFFERCOUNT 


FIND 


OPENW 


THROUGH 


CARD 


HIGH 


OUTPUT 


TIME 


CHECKC 


HOLD 


PLACE 


UNIT1 


CHECKF 


INPUT 


PRIMARY 


UNIT2 


CHECKPOINT 


KEYS 


REEL 


WORD 


CKSUMS 


LABEL 


RETAIN 




CLOSER 


LABELN 






CLOSEW 


LABELS 






COLLATE 


LENGTH 







C. Name Qualification 

Qualified names may not be used in the Environment Description or in CRYPT 
instructions. Data and Procedure names used in these sections must be of one word 
only. The verb CALL enables the programmer to reduce a qualified name to a one- 
word name to fulfill this requirement. 

D. Effect of Data Storage Mode on Arithmetic Efficiency 

Arithmetic operations are performed only in the internal (binary) mode. For this reason 
it is advantageous to have fields used in arithmetic operations in the internal mode 
when the programmer has a choice. If the fields are in the external mode and reoccur 
in different arithmetic statements, it is generally more efficient to MOVE this data 
to an area which has been defined with the mode as internal . This area would be 
referenced when the fields are used in arithmetic statements. 

Consider the following examples: 

Assume the following Data Description 



A 


01 


999 


B 


01 


99 


C 


01 


99 


D 


01 


999 


E 


01 


99 


X 


01 


IR999 
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1) The sequence 

SET A = B+C 
SET D = A+E 

could be made arithmetically more efficient by the sequence 

SET X = B+C 
SET D=X+E 

This assumes of course, that A is not to be used elsewhere in its 
external form. 

2) The sequence 

SET A = B+C 
SET D = B+E 

can be improved by the sequence 

MOVE B to X 
SET A - X+C 
SET D = X+E 
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02.04 Procedure Description Clarification and Amplification 
A. Constants and Literals 

1 . Figurative Constants 

a) Values of HIGH. VALUE and LOW.VALUE 

HIGH. VALUE will be considered to be the left parenthesis, ( f and 
LOW.VALUE the zero,0, unless the Commercial collating sequence 
(COM) is specified in the Environment Description. The Commercial 
HIGH. VALUE is 9 and the LOW.VALUE is blank, 

b) Figurative constants used in comparisons 

ZERO may be compared to either numeric or alphameric fields. 

HIGH. VALUE, LOW.VALUE and BLANK may be compared to 
alphameric fields only. 

c) Use of figurative constants with MOVE and SET verbs. 

Figurative constants may be used as source fields by both MOVE and 
SET.* Two restrictions on the length of the target fields should be noted. 

i. Figurative constants may not be moved to variable length arrays, i.e., 
to fields with which QUANTITY IN is associated signalling that the 
field length is determined at execution-time. However, figurative 
constants may be moved to a particular element of a variable length 
array . 

For example, for the following data description entries: 

Lev Quant Description 
ARRAY "OT 

FIELD 02 100 A(6) QUANTITY IN NNN 

the sentence MOVE BLANKS TO ARRAY is illegal, 
whereas MOVE BLANKS TO FIELD(3) is proper. 

ii . Fiaurative constants may not be moved to fields which are longer than 

15 
2 - 1 characters. 
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The following chart shows the result of MOVEing and SETting figurative constants into 
variously defined target fields. (See 02.05 for description of the target fields). 



^v Target 
XField 

Figurative ^v 
Constant ^^ 


Alpha- 
meric 


External 
Decimal 


Internal 
Decimal 


Edited 
Field 


Floating 
Point 


Scientific 
Decimal 
















BLANK or 
BLANKS 


blanks 


blanks* 


0's* 


blanks* 


0's* 


blanks* 


ZERO or 
ZEROS 


0's 


0's 


0's 


0's 
Edited 


0's 


0's 
Edited 


LOW. VALUE 

or 

LOW. VALUES 


0's # 
or 
blanks 


0's # * 
or 
blanks 


Illegal* 


0's#* 

or 
blanks 


Illegal* 


0's#* 

or 
blanks 


HIGH. VALUE 

or 
HIGH. VALUES 


("s# 

or 

9's 


or 
9 ! s 


Illegal* 


('s#* 
or 
9 ! s 


Illegal* 


or 

r\ t 



* An error message is given for each doubtful or illegal usage. 

Value dependent upon collating sequence order specified (Commercial or 709). 



2. 



Literals 



The form of floating point literals used in Procedure statements is the standard 
scientific decimal form: 



nuciiun riexporieni 
The following rules apply to this form: 
a) Both fraction and exponent may be signed or unsigned (a positive value 



:» -.-,. 1 :_ 4.1 U- r - :c: *: — \ 



b) A decimal point must be present in the fraction (20.F+01 is interpreted as 

a floating point literal, but 20F+Q1 is interpreted as an arithmetic expression) 

c) It must be followed by at least one digit which may be signed or unsigned 
(20. F0). 

d) F indicates that the literal is to be converted to a single precision floating 
point number, and FF signals double precision floating point. 



Verbs 
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ENTER 

There are only two forms which this command may take: ENTER CRYPT and 
ENTER COMMERCIAL TRANSLATOR. The first form signals the processor that 
the following instructions are to be processed by CRYPT, the SCAT- 1 ike 
machine symbolic assembler of Commercial Translator. The second form of the 
command terminates the processing of CRYPT instructions and signals that 
Commercial Translator statements follow. 

DISPLAY 

The display device for the 709/7090 processor is the on-line 716 printer. Note 
that the portion of the material to be displayed which is written enclosed in 
quotation marks actually is an alphameric literal, which may not exceed fifty 
characters in length and must be complete upon a single line. 
A check is made to determine whether the internal form of the sentence to 
be displayed is more than 255 words of storage. If it is, the entire literal will 
be printed but it will be printed as more than one physical record. 
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3. MOVE 

The fbl lowing chart presents a schematic of the steps involved in data 
movement, and intermediate forms which the CT processor causes data 
to assume automatically in the process. (See section 02.05 for description 
of field types) . 



internal 
decimal 



internal 
decimal 
(not rt just) 




KJ 



alphameric 
field 



a) When source and target fields have the same format no intermediate 
form is necessary ( except for edited fieids and internal decimal fields 
not right justified ) and transmission is direct as indicated by the self- 
directed arrows shown with each type of fieid. 

b) When source and target fields of unlike format are involved the 
conversion steps are defined by the diagram arrows where the route 
requiring least intermediate steps is used, e.g., 

i Movement of data from a floating point field to an external decimal 
field requires an intermediate conversion to internal decimal form. 

ii Movement of floating point data to an alphameric field requires 
conversion to scientific decimal form prior to transmission to the 
alphameric target field. 

iii Movement of internal decimal data to an alphameric field requires 
a conversion to external decimal form. 



c) Note, that all types of data may be moved into an alphameric field but 
the contents of an alphameric field may only be moved to another 
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d) Subroutines are normally used to perform the requisite conversion and 
transmission except where arrows have associated an *. These moves 
are normally performed by in-line instructions. 

e) For the source fields of the scientific decimal type, a free form of data 
is allowed within the limits of the field. For example, a field with the 
pictorial -99V-99 may contain the value 1 in any of the following ways, 
(b represents a space): 

b.01b2b (i.e. 01 x 10 2 ) 

lbb+Olb (note above scale applies when no point) 

,001bb3 

blbbbbb (note above scale applies when no point) 

1000.-3 
etc. 

4. CORRESPONDING Option with MOVE and ADD 

Correspondence is determined at the lowest possible level on the basis of name 
only. All qualifiers must be present and identical through the level of the 
name itself to meet the criteria of correspondence. Note, however, that the 
resultant MOVE or ADD may be affected since the rules governing these 
commands are the same whether or not the CORRESPONDING option is 
exercised. Consider the command 

MOVE CORRESPONDING DATA.l to DATA. 2. 

a) Where the data with associated levels are 

DATA. 2 04 

GROUP 05 

ITEM 06 

FIELD. 1 08 

FIELD. 2 08 

correspondence would be found at FIELD. 1 and FIELD. 2 level, and 

instructions would be generated to 

MOVE DATA.l GROUP ITEM FIELD. 1 TO DATA. 2 GROUP ITEM FIELD. 1, 
MOVE DATA.l GROUP ITEM FIELD. 2 TO DATA. 2 GROUP ITEM FIELD. 2, 

b) Where the data with associated levels are 

DATA. 2 01 



DATA.l 




01 


GROUP 




02 


ITEM 




03 


FIELD, 


.1 


04 


FIELD, 


,2 


04 



DATA.l 




01 


GROUP 




02 


ITEM 




03 


FIELD. 


,1 


04 


FIELD. 


,2 


04 



ITEM 03 

FIELD. 1 04 

FIELD. 2 04 

no fields would be found to correspond due to the absence of the qualifier 
GROUP in DATA. 2. 
c) Where the data with associated levels are 



DATA.l 


05 


DATA. 2 


01 


GROUP 


06 


GROUP 


02 


ITEM 


07 


ITEM 


03 


FIELD. 1 


08 






FIELD. 2 


08 
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correspondence would be determined at the ITEM level, and an attempt would 
be made to generate the instructions to 

MOVE DATA.l GROUP ITEM TO DATA. 2 GROUP ITEM. 

Since the field DATA.l GROUP ITEM has sub-fields, it has no format characteristics 
of its own and is assumed to be alphameric. If DATA. 2 GROUP ITEM is a field 
into which alphameric information may not be legally moved, an error will be noted. 

Data items referenced in a MOVE or ADD CORRESPONDING clause may be subscripted, 
The compiler simply appends the designated subscript to the generated instructions. For 
example, if in example a) above the command had been 

MOVE CORRESPONDING DATA.l TO DATA. 2 (t) 

and appropriate quantity values had been supplied in the Data Description the generated 
instructions would now be 

MOVE DATA.l GROUP ITEM FIELD. 1 TO DATA. 2 GROUP ITEM FIELD. 1(1) 
MOVE DATA.l GROUP ITEM FIELD. 2 TO DATA. 2 GROUP ITEM FIELD. 2 (I) 

5. CALL 

The (old. name) in a CALL statement must be unique and may not be subscripted. 
This requirement is met if the (old. name) appears only once in the Data Description 
of if sufficient qualifiers are used to identify it uniquely. The use of record. names 
should be avoided in CALL statements. 

6. SET 

The operands of a SET instruction which are used in an arithmetic expression may 
be fields of any format except alphameric (the result field may be alphameric, however, 
and a statement of the form SET alpha. field. 1 = alpha. field. 2 is allowed since no 
arithmetic expression is specified). Appropriate conversion is performed in all cases 
aithough arithmetic operations are considerably less efficient when performed on 
fields having dissimilar formats. Generally, fields frequently referenced in arithmetic 
expressions should be converted to internal form right justified for most efficient 
operation . 

a) Mode of Expression Evaluation 

The 709/7090 Commercial Translator System allows single or double precision 
arithmetic in either the floating of fixed point modes. Floating point arithmetic 
is the 709/7090 floating binary arithmetic. Fixed point arithmetic is a binary 
integer arithmetic with decimal scaling. 
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If a floating point or double precision number is encountered in the 
evaluation of an arithmetic expression, all remaining operations in the 
expression will be performed in floating point or double precision mode, 
as appropriate. Once the mode of evaluation is thus changes, the appear- 
ance of a number in the other of these modes will force subsequent 
evaluation to be performed in double precision-floating point mode. 

b) Order of Expression Evaluation 

When the hierarchy of arithmetic operations in an expression is not 
explicitly specified by the use of parentheses, operators are honored 
in the following order: 

TR or ABS or - (Negation) 
** 

* or / 
+ or - 

For example, the expression 

A+B/C+D**E*F 
will be taken to mean 

(A+(B/C)) + ((D**E)*F) 

When there are two operators of the same hierarchy, ordering proceeds 
from left to right 

For example, the expression 

A*B*C 
will be taken to mean 

(A*B)*C 

Parentheses may be used to specify an exact ordering of operations 
within an arithmetic expression. 

For example, the expression 

A*(B*C) 
will be taken to mean 

(A*(B*C)) 
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7. GET and FILE 

For discussion of these two verbs, refer to section 02.07. 

8. CLOSE ALL FILES 

This command causes each open file to be closed in accordance with the close 
options exercised on the Loader *SPEC card. Section 03.02 describes the options 
as they appear on the *SPEC card which may be supplied by the programmer or 
generated by the Compiler from an Environment SPECIF card (Section 02.07). 
In the absence of specification, closing includes a rewind and unload of the unit. 

Files closed by this form of the CLOSE command may not be subsequently reopened 
by the program . 

9. STOP RUN 

A STOP RUN instruction must be included in each program to provide for transfer 
of control to the CT Supervisor at conclusion of execution of the object program. 
All open files are closed prior to this transfer of control as if a CLOSE ALL 
FILES had been supplied. 

C. Conditional Statements 

1 . Comparisons may not be made between numeric and alphameric fields. If ABC 
is described as three position alphameric field (AAA) and DEF as a three position 
numeric field (999) the following IF statement represents an invalid comparison: 

IF ABC = DEF THEN — 

The implied or explicit specification of DEF as an external decimal field does 
not affect the validitv of the comoarison. 
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2. Comparisons of fields of unequal length 

a) Numeric fields are compared arithmetically without regard to length. 

b) Alphameric fields of unequal length are treated on the basis of the 
operator used in the comparison. 

i | n tests for an = o r NOT = condition the fields will alwa ys be 

found to be unequal . In the following example where fields 

A and B are of alphameric type with unequal length the only code 

generated will be a transfer to D. 

IF A = B THEN GO TO C OTHERWISE GO TO D. 

IF A NOT = B THEN GO TO D OTHERWISE GO TO C. 

ii In tests for NOT greater or less conditions the lengths are made 
equal by right truncation of the longer field. 

3. For purposes of comparison edited fields (see 02.05 for definition ) are converted 
to pure numeric fields. They may not be compared to alphameric fields. 

4. All non-format fields (see 02.05 for definition) are compared alphamerically, 
subject to rules stated in 2b above. 

5. Variable length fields may not be compared. (A variable length field is a 
field which uses the QUANTITY IN option). 

6. For comparison purposes zero is considered an unsigned number, even though 
computational sequences generated by the compiler may produce negative or 
positive zeros. 

D. Subscripting and Indexing 

A source program may refer to array elements through use of subscripted names such as 
A(J, K). Each unique subscripted name appearing in one or more Procedure statements 
causes the Compiler to generate a positional indicator which will serve to locate the 
array element when the program is executed. For example, each of the following 
subscripted names would cause the Compiler to generate a positional indicator although 
they refer to elements in the same array: A(J, K), A(J, K+l), A(2,3), A(2, 1). Only 
one positional indicator will be generated for each, regardless of the number of times 
each is referenced. 

A positional indicator contains the location (word and byte) of the particular element 
being referred to by the present values of the subscripts. The value of the positional 
indicator is a function of the location of the array, the dimensions of the array, and 
the values of the subscripts. A positional indicator with constant subscripts such as 
A(2,3) may be a load-time constant or may change in value if the dimensions or base 
location of the array vary during the execution of the object program. 
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In general, positional indicators are evaluated when their subscripts change 
value. Execution of the code generated for SET K=K+2 would cause the 
positional indicators for 3 of the subscripted names shown above to be updated: 

A(J,K), A(2,K), and A(J, K+l) 

The initial value of an array is A(l) and not A(0). 
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02.05 Data Description Amplification and Clarification 

The name of each data field referenced in Procedure statements or Environment 
Descriptions must appear in the name field of a Data Description entry. Neither 
storage allocation nor assignment of data characteristics is made for data fields not 
so named. 
A. Level 

1 . Any numbers 01-99 may be used to specify the level of fields. Leading 

zeros are optional and all level numbers less than 10 are right justified by 

the compiler. 

2. The highest level in a program need not be 01 . All data fields of level 
equal to the highest level in a source program will be left justified unless 
explicitly specified as right justified. Consider a source program in 
which only the following description of data appears: 



Name 


Level 


Type 
RECORD 


Description 


A 


05 




B 


10 




A(20) 


C 


10 




9(20) 


D 


05 




9(2) 


E 


05 




A(3) 



Fields A, D, and E will each be left justified (although no justification 
is specified and previous fields may not complete full words) since 05 
is the highest level used in the program. 

Type Codes. 

1 . RECORD 

a) A record is a data hierarchy which may not be part of any data 
organization except a file or a section. The "Quantity columns" 
are used to specify the number of times a format of data is repeated 
within a hierarchy; the use of these columns with a data hierarchy, 
such as RECORD, is unacceptable. When the type code RECORD 
is recognized the previous data organization is always terminated. 
Record definition is terminated by specification of a level number equal 
to or less than the one associated with RECORD. 

b) A record must have length, and redefinition of a record area does not 
give it length. 

The compiler considers that no length has been specified for REC1 in 
the following example: 

Name Level Type Description 



REC1 


01 


RECORD 








REDEF 


REC1 


AREA 


01 




A(40) 
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The length of a record is normally determined on the basis of fields defined within it. 
Length may also be given to a record through use of a pictorial with the RECORD eintry 
itself. 

2. COND 

a) Normally this type code is associated with several entries naming and describing 
the values a particular field may have. These entries must be preceded by a higher 
level entry defining the format of the fields and must all have the same level number 
and include the COND type code. 

3. REDEF (see iii under Data Description on page 90.01 .03 for limitation). 

a) When the REDEF type code is used, it should appear on a line with no additional 
coding except a serial number and the name of the item being redefined. The first 
item appearing thereafter must have the same level number as the item referenced 
by the REDEF. 

b) When a REDEF is first encountered, the contents of the storage assignment counter 
are saved by the compiler, and assignment proceeds according the REDEF. The 
effect of a REDEF is terminated upon encountering an item of a level above or equal 
to the level of the item referenced by the REDEF or upon encountering another 
REDEF. Termination of the former type causes the storage assignment counter to be 
restored and assignment proceeds in the normal manner. 

c) Compound names are formed without regard to REDEFs (or other type codes) and as 
a function of the level and position within the program of the simple names only. 
Consider the following examples, in which the completely qualified name of H 

is A G H in both instances. 



Description 



EXAMPLE 1 - 








Data Name 


Level 


Type 


Di 


A 


01 






B 


uz 






C 


03 






D 


03 






E 


\J£. 






r 
r 


wo 










REDEF 


B 


G 


02 










REDEF 


C 


u 

1 1 


03 







709/7090 Commercial Translator 
1 (10/61) 02.05.03 



EXAMPLE 2 - 








Data Name 


Level 


Type 


Description 


A 


01 






B 


02 






C 


03 






D 


03 






E 


02 






F 


03 










REDEF 


E 


G 


02 










REDEF 


C 


H 


03 







RCDMRK 

The RCDMRK type code causes insertion of a single character record mark 
constant in the indicated position. No description field specification is 
required since the compiler automatically provides a pictorial with a 
single A. Information may be freely moved into or out of this position 
subject only to the restriction imposed by its single character alphameric 
format . 

LABEL 

The type code LABEL allows the programmer to redefine with the indicated 
data description entries, the single 14 word label area in the Input/Output 
Control System from which all labels for output files are wirtten and into 
which all input labels are read. This area may only be processed by the 
Commercial Translator programmer by using the FOR LABEL option on the 
Environment FILE cards. Use of the FOR LABEL option with a file causes 
IOCS to transfer control to the procedure . name specified with the option 
when the file is opened or closed, or when a reel switch occurs. 
Discussion of the implementation of this procedure may be found in 
Appendix 90.07. The type code LABEL and the FOR LABEL option provide 
the programmer with an IOCS oriented method of checking and forming 
non-standard labels. The restrictions limiting the length of labels 
processed in this manner to 14 words and dictating that portions of the FOR 
LABEL coding must be done in CRYPT may make an alternate method 
desireable; i.e. , defining labels as records and processing with the GET 
and FILE verbs. 



PAR AM and FUNCT 

These two type codes described in the General Information Manual are no 
longer in the language. 
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C. Quantity Field 



An entry in this field is used by the compiler to reserve storage for sequential data of 
the same format. If no value is specified, 1 is assumed. No check against this value 
is made at execute time. The maximum Quantity which may be specified is 2^ - ] . 
Since Quantity numbers are used to specify sequences of data descriptions for use 
of lists and tables, and since data in tables is referred to by the use of subscripted 
names, quantity numbers should not be assigned to data items not having names, 
unless these items include named items at a lower level . 

D. Mode and Justify Fields 

1 . The MODE column of the data description coding form merits careful attention. 
Internal mode (I) designates that the associated numeric field is to contain data 
in binary form. External mode (E) designates that the stored form is BCD. 

2. A numeric internal mode field designated as right justified (R) appears by itself 

<= i«-»w wruci (jOSmuiia ui u iuii woiu ^rwo if douDie precision) wirn rne 

sign value in the sign bit of the word. Numeric external fields to be involved 
in extensive computation should be converted to this internal right justified 

by a preliminary SET or MOVE in order to prevent repetitive unpacking and 
converting . 

The length of a numeric internal mode fixed point field designated as left 
justified or without justification specification is the least multiple of 6 bits 
sufficient to contain the number and its sign (leftmost bit of the field so designated) 
Left justification (L), as with external fields, reserves storage beginning with 
the leftmost bit of a new word and extending through as many words and bits 
as necessary. The no justification mode (blank) differs only in that storage 
reservation begins immediately to the right (within the same word if possible) 
of the preceding storage reservation . 

For a right justified external mode field, storage is reserved beginning in a new 
word so that the field's last character is also the rightmost character of its 
final word. 

3. Specification of right justification is effective only for dara items with explicitly 
described formats. Left justification is always effective. 

F. Descrintinn Fmlrl 

1. Pictorials 

a) Definition of Allowable Data Field Types 

The chart on the following page defines the types of formats which data 
fields may assume. The determining characteristics, allowable format 
description characters and proper field contents are shown for the various 
field types. 

b) The pictorial characters A and X are considered to be synonymous by 
the 7090 CT Compiler. 
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Type of Field 


Characterized By 


Legitimate Format 
Characters in Description 


Legitimate Information 
in Field 


Alphameric 


A or X in format field 


AX(n) 


all characters 


External 

Decimal 
0) (3) 


E in Mode Column 


9 (n) S V 9 or $ in right- 
most character 


digits and leading 

blanks 

an overpunch with the 

rightmost digit 


Internal 
Decimal 


1 in Mode Column 


9 (n) V S 


binary 


Edited Field 
(2) 


8 *.,$ + - in format 
field or BLANK WHEN 
ZERO clause 


9 8* . , $ + -SV(n) 

8 or 9 or 8 or 9 

in rightmost character 

4. 1 


digits and leading 

blanks 

an overpunch with the 

rightmost digit 


Floating 
Point 


1 in Mode Column and 
F or FF in format field 


F is single precision 
FF if double precision 


floating binary 


Scientific 
Decimal 
(4) 


E in Mode Column and 
F in format field 


9 (n) F . V + - 


digits . + - 



Notes - 



(1) The only sign specification which may be used for an external decimal field is an 
overpunched + or - in the rightmost position of the field. A + and - may not appear 
in the character by itself. 

(2) An edited field may have a character position reserved for the sign or may have the 
sign over the rightmost digit. 

(3) Numeric external fields may contain leading blanks which are treated as leading 
zeros . 

(4) Scientific decimal is the edited form of the floating point. The maximum fractional 
portion of a scientific decimal field is 16 digits. 
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c) A field for which no pictorial is given is treated as alphameric with length 

equal to the length of its subfields. 

No subfields may be specified for the field whose format is described. The 
only entry which may legitimately appear at a lower level is a COND definition, 

In the following example A and D are treated as alphameric fields with 
lengths of 12 characters each. 

Name Level Mode Justify Description 



A 


01 






B 


02 | 


R 


99 


C 


02 | 


R 


99 


D 


01 






E 


02 




A(6) 


F 


02 




A(6) 



d) Fixed point double precision numbers are denoted in the Data Description 

by formats representing more than 10 digits. Double precision internal floating 
point numbers are specified by "FF" in the Data Description. 

e) Any non-format character appearing in the pictorial will resulr in the pictorial 
being interpreted as a name. An error message will be produced if the 
pictorial is not a data, key, or a procedure name. 



a) Constants cannot be defined, 
in a field whose pictorial characterizes it as an edited field. 

i as a part of a located input area, (see section 02.07) . 

ii following a variable length field. 

v as part or all of the redefinition of an area . 

b) No format specification is required in the definition of alphameric constants ^ 
The length of the literal is assumed as the length of the field. However, if 

a pictorial is furnished and the length given by the pictorial is: 

i greater than the length of the constant the constant is left-justified in the 
field and the remaining positions of the field filled with blanks. 

ii less than the length of the constant the characters of the constant starting 
with the left end are placed in the field until the field is full; at which 

time the remaining characters are discarded. Also, an error message 

:. i i 

id jJiUUUCCU. 
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c) If a field is defined as external decimal the length specified by the pictorial 
must be exactly equal to the length of the constant. Also, the constant 
must utilize the sign convention given in the pictorial e.g., 

If the pictorial is 999, the number 123 would be correct 
whereas 123 would not be correct 

d) If a field is defined as internal decimal the length of the field specified in 
the pictorial may be larger than the constant. In this case the constant is 
right justified in the field. If the constant is larger, the constant is truncated 
at the left-end to the size specified by the pictorial, converted and stored. 
Also, an error message is produced. 

The appropriate sign conventions for internal decimal constants are: 

i leading + or - 
ii trailing + or - 
iii no sign 

3. QUANTITY IN data. name 

Use of this option indicates that the associated entry(s) is to be repeated a variable 
number of times as determined at execute time by the value in the indicated 'data. name 1 

The compiler reserves sufficient storage for the maximum number of times the field 
may be present on the basis of the value entered in the Quantity Field. 

4. BLANK WHEN ZERO 

When associated with an output field this clause indicates that the field is to be 
replaced with blanks when it becomes zero. Since leading blanks in numeric 
input fields are automatically treated as zeros, the use of this clause is redundant. 
In some cases it may even result in decreased efficiency in the object program as these 
fields are treated as edited types. 
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02.06 Environment Description 

A. introduction 

1 . The Environment Description of the Commercial Translator language allows the 
programmer to specify the external physical factors which relate to the 
compilation and execution of the program. These factors may usually be 
changed without affecting the logical description of the problem, as contained 
in the Procedure and Data Description parts of the language. The Environment 
Description of a source program specifies and describes those factors which 
allow the processor and object program to deal with information as it exists 

in the "external world", including physical characteristics of data, machine 
configurations, and programmer-elected features. 

2. In this chapter, a general discussion of the Environment Description is 
followed by a detailed explanation of the various specifications. Appendix 
90.08 describes the effect of the various Environment specifications on the 
Loader symbolic control cards generated by the Compiler. 

B. Environment Types 

1 . General Rules for Use of Coding Form 

Figure 1 is a sample Environment Description coding form on which seven 
general types of specifications may be made. The information associated with 
each type is entered on one or more cards. The first card of each specification 
group may contain an appropriate name in the Name field (columns 7-22) 
and must contain one of the following seven type codes in the Type field 
(columns 25-30): 

a) FILE 

b) SPECIF 

c) POOL 

d) GROUP 

e) CONTRL 

f) OPTION 

g) COND 

When multiple cards are required continuation of the options (columns 31-71) 
or Name on subsequent cards is indicated by a non-blank character in the 
Continuation field 'column 72^. The absence of a character in column 72 
signals that the next card initiates a new specification^ if the next card does 
not contain a type specification the card is deleted and an error message given. 
If a card containing the continuation signal is followed by one which contains 
a type specification, the type is ignored and the options specified are 
considered to be part of the previous specification. 



IBM 
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A period (.) must not be used to signal the end of a specification as it will be 
treated as part of the previous word thus creating an undefined symbol. 

General Function of Specification Types 

FILE The FILE environment card must be included to describe the file 

cards characteristics which affect compilation, such as use for input 

or output and the type of blocking utilized. 

SPECIF The SPECIF card describes such file characteristics as symbolic 

cards input/output unit assignments, density, relative activity, labeling 

conventions and other programmer choices which are to be punched 
during compilation into load-time control cards. SPECIF cards may 
be omitted if the programmer prefers to provide his own cards 
containing the appropriate information at load-time. 

POOL POOL environment cards may be used by the programmer to direct 

cards the processor in the allocation of buffer storage for several files. 

In the absence of POOL cards, the processor will automatically 

make pool and buffer assignments. 

GROUP GROUP cards may be used by the programmer to specify buffer 
cards allocation for files belonging to a particular buffer POOL. 

CONTRL If several separately compiled programs are to be combined and 
cards executed as one program, any joint procedure or data description 

areas must be defined for the compiler by CONTRL environment 

cards. 



cards 



COND 
cards 



wr IIWIN cuius uic uscu wiicii m€ (ji wyi uniiiici vvuuia inc jji uv-eoowi 

to depart from its standard use of 709/7090 collating sequence, or 
when he wishes special emphasis placed on minimizing either 
storage or running time requirements in his object program. 

The COND card names and defines a computer console key setting 
which the programmer may want to test by procedure statements 
in his program. 



C. FILE Environment Card 

FILE cards are used to supply the compiler with the characteristics of the file which 
are necessary at compile time. This specification must be made for each file 
processed by the program. The formats of the FILE cards and options available 
for input, output and checkpoint files are shown below: 



709/7090 Commercial Translator 
2(1/62) 02.06.03 



1 . Input Files 



Name 



Type Description 



file. name FILE 



NPUT I ("BCD 

I ^BINARY 



} 



Ccard) 

'1 TAPE J 



,BLOCKSIZE nn 
r~ , ON ERROR statement .name .1 M 
P , FOR LABEL statement .name .2~\ 

r ( SPANS jj J , BEGIN | 



, record, name. 1 nj 



n 



f BLOCK CONTROL t 

L I FIND LENGTH IN data .name. lJ_ 
H PLACE LENGTH IN data.name.2 

J record. name. 2 . . . J 



2. Output Files 

Name Type 



Description 



file. name FILE OUTPUT |~~ (BCD \ 



fCARDfl 

' Itape/_] 






' [binary) 

,BLOCKSIZE nn 

, FOR LABEi statement. name. 2 I 
r,BEGINl HsPAnFI 

, record, name. 1 
r~,FIND LENGTH IN data. name. 1~ 
P, PLACE LENGTH IN data. name 1 

Q primary] [Tno control word] 

, record ..name. 2 . . . I 



709/7090 Commercial' Translator 
2(1/62) 02.06.04 



3. Checkpoint Fiies 

Name Type 



Description 



file, name 



FILE 



CHECKPOINT 



4. Description of File Options and Requirements 

a) The order in which options are exercised on the FILE card is critical only in that the 
options exercised for a particular record must be listed following the record. name 
and prior to the introduction of another record. name. 

b) Detail Description of FILE options and requirements 



( INPUT 
j OUTPUT 

(checkpointJ 

The description of the file must specify one of these three types. If a file 
is designated as CHECKPOINT it may have no other usage. 



i 



f Cbcd 1 
' Ibinaryj 



(card) 
' {tape; 



The specification states the mode in which an input file is to be read or an 
output file written. If no specification is made the file is assumed to be BCD. 



CARD is specified if the on-line card reader or card punch is the processing 
unit. When CARD is specified BEGIN is assumed, i.e., each record starts 
at the beginning of a physical block. With this option only columns 1 through 
72 are read. For the most efficient handling of card input a GROUP card 
should be used when more than two cards constitute a record. If no 
specification is made TAPE processing is assumed. 

,BLOCKSIZE nn 

nn is an integer representing the size of the largest block to be output or the 
maximum number of words to be input from an input block. This specification 
must be made. All input card files must have a block size of at lease 24 words, 
Maximum blocksize is 9999 words. 

, ON ERROR statement. name. 1 

Statement. name. 1 references a procedure statement name in the Commercial 
Translator program to which transfer will be made if the system is unable to 
recover from an input error. (See Section 02.07). 
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[ 



,FOR LABEL statement. name. 2 



»] 



FOR LABEL option provides transfer of control to statement. name. 2 
whenever a file is opened or closed or whenever a reel switch occurs. 
See Appendix 90.07 for application of this option in processing non- 
standard labels. 



record, name 

[7 (hold Y] 

[_ISPANSJJ 



J, BEGIN J 



All records associated with the file must be named on the FILE card. 



Specification of either the HOLD or SPANS option 

i For an input file: forces data to be processed in the transmit mode. 
This is required if records in the file overrun the boundaries of a 
block (SPANS); when it is required that each named record of the 
file be available until another of the same name is input (HOLD). 

ii For an output file: specifies that output records are to be written 
in blocks of the specified length. This allows the existence of 
partial records in blocks for the sake of compactness (SPANS). 
Files written in this manner must be processed in the transmit mode 
when input. 

The compiler does not differentiate between the words HOLD and SPANS, 
They produce the same effect and are both included in the vocabulary 
for mnemonic convenience. 

If neither HOLDS or SPANS is selected an input file will be processed 
in the locate mode; an output file will be created with all records 
complete within blocks. 



The BEGI N option specifies that each record to be read or written by 
the program starts at the beginning of a physical block. 



, Cblock CONTROL *T] 

(^FIND LENGTH IN data .name. UJ 

BLOCK CONTROL specifies that the input record is of variable length but 
has no standard control word preceding it; the logical record length is 
equal to the length of the block. 

FIND LENGTH IN data. name. 1 signals that the length of an input 
or output record is to be obtained from data. name. 1 rather than as 
specified by the data description. If neither option is selected it is 
assumed that the variable length record is preceded on tape by the standard 
control word. 
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If both options are specified for a record, only BLOCK CONTROL will 
be effective. 



[~, PLACE LENGTH IN data. name. 2~j 



Use of this option on input makes available in data. name. 2 the length 
of the current record. On output the length of the current record will 
be placed in data. name. 2 prior to filing the record. 



PRIMARY 
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The PRIMARY option enables the user to file selectively 
a record which is associated with more than one output 
file. The 'FILE record. name' command will file records 
belonging to more than one output file only in those files 
where PRIMARY has been specified for that record. name. 
If PRIMARY is not used with the record. name in any file, 
the record will be filed in all output files with which it 
is associated. 



[NO CONTROL WORD] 



This option notifies the system not to produce the standard 
control word for the variable length output record. 



D. SPECIF Environment Card 



The SPECIF card is used to describe load time I/O options for the designated 
file. SPECIF cards are not necessary for correct compilation of a 
Commercial Translator program; the user may elect to punch the required 
load time cards himself rather than allowing the compiler to do so on the 
basis of SPECIF cards. The SPECIF card(s) may appear anywhere within the 
environment division. The general form of the SPECIF card is: 



Name Type 
SPECIF 



Description 



file. name [,UNIT1 'unit.l] [,UNIT2 'unit. 2 



'unit.2'1 



r /low! 

\HIGHJ 



[, DEFER] [, OPENW] [, OPENF] 



~, /closer V 

_ [CLOSEWJ 



{CHECKCl 
CHECKFJ J [ MULTl] 



, SEQJ [, CKSUMS] 

, [labels \ r -, 

\LABELNJ [, SERIAL 'ser.no'J [, REEL 'reel, no 'J 



[, RETAIN days] 



~ JhighV 
. \low/. 



ft ie. name 
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Filename must be the first item of the SPECIF card 
description field. It must be identical with the 
file. name in the FILE card. 



[, UNIT1 'unit.!'] [, UNIT2 'unit. 2'] 



Note that the Quote Marks are mandatory. The 
alphameric literals 'unit.T and 'unit. 2' specify 
symbolically the I/O units (card or tape) to which the 
file is attached. The available unit specification 
includes relative unit assignment, symbolic channels, 
and tape transport model type. The secondary unit 
specification UNIT2 'unit. 2', allows for the assignment 
of the secondary reel of a multi-reel file on another or 
the same unit which will be automatically referenced 
UDon a reel switch If I INIIT9 ic loft M««U tU« *~. — ~J 

i • — • -■■---' — ...._..» . ~. ■ -iuiiix^ me jcvui h-ivji y 

unit assignment will be the same as the primary unit. 
To explain these specifications the following notation 
is employed: 

X denotes one of the real channels A,B, . . . ,H 
P denotes a symbolic (unspecified physical) 

channel S,T , . . . ,Z 
k denotes one of the numbers 1 , ... ,9,0 
m denotes a tape transport model number, 

II or IV 

The allowable unit specifications are: 

a) No specification - when the option is not exercised 

any available unit is to be 
assigned to the file. 

Dl m — nm/ n\/nilnl-»lo unit r\( tkic nt^Ar>\ *•.,-■<« ?.. i.~. 

-' ■■■ — / _.—..-.«,.w w.... V i ,,,,* iiivu^i '/K c ■'■' ,SJ 

be assigned to the file. 

c) 'X' -any available unit on this nhvsica! channel 

is to be assigned to the file. 

d) 'P' - all files in the job having this symbolic 

channel designation are to be assigned to 
the same channel . 

e) 'X(k)' - the kth available unit on the specified 

channel is to be assigned to the file; note 
that the parenthesis are required. 
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f\ 'p m > _ an y available unit of this model type on the 

symbolic channel specified is to be assigned 
to the file. 

g) 'Pkm' - an available unit on the symbolic channel, 
having this model number, is to be assigned 
to the file, k in this use without parenthesis 
indicates the order of preference for the 
channel so that if the number of available 
units on the channel is less than the total 
requested for the channel those with lower 
numbers are to be assigned to the same channel 

h) System units may be assigned by: 

j 'IN' - the current system Input unit is to 

contain the file. 

ii 'OU' - the current system Output unit is to 

be used for a printed output file. 

iii 'PP' - the current system Peripheral Punch 

unit is to be used for a punch output file. 

iv 'UTk' - System utility tape k (non- 

parenthesized k = 1-4) is to be used for the 
file. 

i) Card equipment is assigned for a file by 

1) 'RDX' - card reader, channel X 

2) 'PRX' - printer, channel X 

3) 'PUX' - card punch, channel X 

j) As a special option, an '*' in the UNIT2 field 

indicates that the secondary unit of a file is to be 
any unit on the same channel and of the same 
model type, which is available after all other 
assignments have been made. At load-time if units 
are available, but of a different model, one will be 
assigned; if no units are available on the channel, 
no secondary unit is assigned prior to execution of 
the job. 
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[■ ° ,tNf J 



, (closerV 

/CLOSEW/ 



Examples 

A tape to be assigned fo the first available unit on channel 

A is specified in the SPECIF card as ,UNIT1 *A(1)' 

If a programmer desires to use the system output tape he would 

specify ,UNIT1 'OU' 

Note, that in this case (also for 'IN') included options for 

density, opening and closing are non- effective. 

Additional and more complete information concerning unit 

assignment will be found in section 03. 



LOW and HIGH specify the density of the tape. Density is 
assumed as HIGH if no specification is made. 

This option may be exercised for files which are not required 
when processing is begun. Unless DEFER is specified the 
file must be mounted before program processing commences. 

OPENW specifies that the file is not to be rewound before 
opening. If OPENW is not specified the file will be rewound 
prior to being opened. 

OPENF specifies that this standard labeled file is to be found on 
a multi-file reel by searching forward until labeling information 
indicates that the proper file has been found. If this option is 
selected without the selection of the OPENW option the tape 
is rewound before searching. When OPENW and OPENF are 
both selected, the programmer must insure two things: 

1) the tape is positioned before a header label; and 

2) the labeled fiie to be searched for is further down the tape. 



If the user desires that a file not be rewound and unloaded when 
it is closed he may exercise one of these options. CLOSER 
specifies that the file is only to be rewound upon closing. 
CLOSEW specifies that the file is not to be rewound upon 
Closing . 
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I ACTIVITY nnj 



, CHECKC 
CHECKF 



r,MULTM 

[,seq] 

r,CKSUMs] 



, |labels\ 
(labelnJ 



nn is a number between 1 and 99 that represents the relative activity 
(or usage) of this file with respect to other files. The loading-time 
program uses this information in the allocation of buffer areas to 
produce a more efficient object program. 



CHECKC specifies that a checkpoint will be written on the checkpoint 
file upon reel switch of this file. CHECKF specifies that a checkpoint 
will be written on this file upon reel switch; the file must be a labeled 
output file for this option to be operative. No check point will be 
written if neither option is exercised . 



MULTI specifies a tape file which is contained in more than one 
tape reel . A single reel file is assumed if MULTI is not specified. 



SEQ specifies that each block in the file contains a block sequence 
number which is to be checked by the I/O system, (see IOCS) 



CKSUMS specifies that each block in the file carries a checksum of 
data in the block which is to be checked by the l/O system, 
(see IOCS). 



[TSERIAL 'ser.no^j [TrEEL 'reel .n<7[ [^RETAIN dayT] 



(highI 

(LOW \_ 



LABELS specifies a file with a standard label, i .e., labels to be 
checked or written automatically by IOCS. 

LABELN indicates the use of a non-standard label, i.e., a label of 
14 words or less which is to be checked by the programmer using 
a linkage supplied by the FOR LABEL option of the Environment FILE 
card. Either LABELS or LABELN must be explicitly stated if labels 
are to be recognized by IOCS and acted upon in either a standard or 
non-standard fashion. If neither option is exercised the file is 
considered to be unlabeled. 



709/7090 Commercial Translator 
2(1/62) 02.06.12 



The SERIAL, REEL, and RETAIN options may be specified for files 
with either standard or non-standard iabels; this information is kept 
in the IOCS file block and is printed on-line in certain error situations. 
It is used by IOCS in checking and preparing standard labels (but not 
non-standard labels) and may be used by the programmer in checking 
and preparing non-standard labels. 

Note: careful study of the IOCS manual and Appendix 90.07 of this 

bulletin is essential for understanding standard and non-standard 

[— I labels. 

, SERIAL 'ser.no' 

The alphameric literal 'ser.no' is composed of 5 or less characters. 
Standard input labels will be checked against this serial number if a 
non-blank literal is specified. Standard output lables written by IOCS 
for this file will contain this serial number only if the REEL option 
specifies a 'reel.no' greater than 1; output serial numbers are normally 
ta<en i-orn me iauei a i ready present on the tape on which the first reel 
of the file is written. 



L REEL 'reel.no^l 



The alphameric literal 'reel.no' is composed of 4 or less numeric 
characters. Use of this option specifies the reel sequence number of 
the first reel of a file. When the option is not exercised this sequence 
number is assumed to be 1 . Reel sequence number is adjusted at object 
time to reflect reel switching, and is checked in standard input labels. 



[7 RETAIN da ysl 



II ow I 



The numeric literal, days, is composed of 3 or less numeric characters 
which specify the number of days a tape is to be retained from the date 
it was written. 

An attempt to write a labeled file on this tape before the end of the 
period has exprred will result in an on-line error message from IOCS. 
Jpness a iGucicu Hie is to be written on a tape, the system assumes 
that no label is present on the tape. 



LOW and HIGH appearing after LABELS or LABELN indicate the 
density of the label . Label dinsity is assumed to be that of the file if 
no specification is made. 
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POOL Environment Card 

1 . The POOL card enables the user to achieve a more efficient object program 
by specifying that certain files are to share a common buffer area. These 
cards are optional. If the programmer so desires, he may enter the 
information (normally provided in the POOL card) on an object time 
loading card. If POOL specifications are not provided at all, files will 
be grouped automatically by IOCS. 

2. The general form of the POOL card is: 



Name 



Type 



Description 



pool, name POOL file.name.l 



file. name. 2. 



, BUFFERCOUNT nn 



BLOCKSIZE nn 



Description of POOL options 
3UFFERCOUNT nn] 



,BLOCKSIZE nn 



•] 



nn buffers will be assigned to the files in the pool by the 
loading program, nn must be equal to or greater than the 
number of files in the pool . (A further grouping of files 
is possible. This is described in the following section on 
GROUPS. When the GROUP option is used, nn must be 
equal to or greater than the total number of buffers 
assigned to groups within the pool). If BUFFERCOUNT 
is not specified, it will be assigned automatically by the 
compiler. 



nn is the number of words to be allocated to each of the 
buffers in the POOL. The POOL BLOCKSIZE should be 
equal to or greater than the largest BLOCKSIZE 
specified for any file in the pool. If BLOCKSIZE nn is 
not entered on the POOL card, the POOL BLOCKSIZE 
used will be the same as the BLOCKSIZE of the largest 
file in the POOL, (see FILE BLOCKSIZE) 



GROUP Environment card 

1 . The GROUP card is used in conjunction with a POOL card in allocating 
buffer areas to be shared by files. The function of the GROUP cards is 
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fo specify how buffers within a POOL are to be shared by the various 
files in the POOL. These cards are optional. The information 
(normally provided in the GROUP card) may be punched into a load- 
time control card. If GROUP specifications are not made at all, the 
compiler will attempt to assign at least 2 buffers to each file. 

2. The general form of the GROUP card is: 

Name Type Description 



GROUP [pool, name] 

[,OPENCOUNT nn] 

[,BUFFERCOUNT nn] 

, file. name. 1 , file. name. 2 

3. Description of GROUP Options 

[poo I. name J 

The POOL to which a particular GROUP of files belongs 
must be specified by listing the pool. name as the first 
item in the variable field. 

T, OPENCOUNT nn] 

L J 

nn is the maximum number of files within the group which 
may be open concurrently during execution of the 
program. This count determines the minimum buffer 
count necessary for processing the GROUP of files. If 
no OPENCOUNT is given, the OPENCOUNT will be 
assumed equal to the number of files in the GROUP. 



|~, BUFFERCOUNT nn] 



nn is the number of buffers which are to be assigned by 
the loader to this GROUP. The BUFFERCOUNT of a 
GROUP must be equal to or greater than the 
OPENCOUNT of the GROUP. If no BUFFERCOUNT 
is given for the GROUP, the loader will attempt to 
assign at least twice the OPENCOUNT number of 
buffers to the GROUP. 

If the POOL BUFFERCOUNT or storage limitations prevent 
such assignment, buffers (in addition to the minimum 
necessary) are allocated to the GROUP on the basis of the 
activity of the files in the GROUP. 
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G. CONTRL Environment Card 



1 . The CONTRL cards define procedure and/or data areas common to two or 

more Commercial Translator programs. These programs may be compiled 
and checked out independently and then merged at object loading time 
into one running program. The general format is: 

Name Type Description 



( section. name 
loadnm CONTRL | sentence. name. 1 TO sentence .name. 2 

re cord, name 



loadnm is a name of 6 characters or less which is used at object load time 
to equate areas in various programs defined by the environment CONTRL 
cards. This load time reference name must have been specified on a 
CONTRL card in each program referring to the area . The body of the 
CONTRL area may contain entirely different names in the various 
programs being combined. 

In the form sentence. name. 1 to sentence. name. 2 the area defined will 
not include any of sentence. name. 2. 

2. The following restrictions apply to CONTRL areas. 

a) CONTRL areas which are defined by the Data Description must begin 
with left justification. 

b) References outside of CONTRL areas to names inside CONTRL areas are 
valid only if: 

i The name referenced has the same bit displacement from the 
beginning of the CONTRL area in all programs to be merged. 

ii The name referenced has the same format in all programs to be 

merged. Therefore, the following general rules apply to CONTROL 
areas: 

CONTROL areas which are defined by the Data Description should 
be identical in organization and format up to and including the last 
externally referenced item. 
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CONTRL areas which are defined by procedure sections or sentences 
should be identical up to and including the last externally referenced 
procedure statement name. If there are no external references made 
to names inside the areas in any of the programs to be merged (i .e., if 
references are made to the section name or beginning sentence name 
only), no correspondence of organization is necessary inside the 
CONTRL area. 

c) Indices inside a CONTRL area must not be referenced or modified 
outside of that area in any of the programs to be merged. 

H. OPTION Environment Cards 

1 . OPTION cards may be used to set compilation mode switches within the 

compiler. The lowest to the highest value in the collating sequence of the 
709/7090 is: 

through 9 = ' + A through I 5 . ) - J through R 6 $ * blank / S through Z 
*,( 

The compiler normally generates comparison type instruct ions based on the 
709/7090 collating sequence and an object program which is conservative 
of time rather than space. The OPTION card allows the programmer to 
indicate a selective preference for the Commercial (705) collating sequence 
and a time or space conservative object program. The lowest to the highest 
value in the commercial (705) collating sequence is: 

Blank .»#&$*-/, % # @ 8 A through I 6 J through R £ S through Z 
through 9 

The general form of the OPTION card is: 
Name Type Description 



OPTION [COLLATE COM QN section. name] 

[~, CONSERVE (SPACE) [FN section. name] j 

^ (JIME J — 

2. Description of OPTION features and requirements 

[COLLATE COM] 

Use of this option instructs the compiler to generate comparison type 
instructions on the basis of the Commercial collating sequence. 

["", CONSERVE /SPACE)"] 

L_ (.TIME J J 

CONSERVE SPACE requests that the generated object program use as few 
storage locations as possible. In this mode subroutines are generated once 
for operations such as scaling, double precision arithmetic, etc., in-line 
calling sequences to the subroutines are used to perform the operations. 
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CONSERVE TIME requests an object program which will 
be executed in a minimum amount of time; this is 
achieved by the generation of in-line instructions to 
perform the operations. This is the normal mode of 
operation . 



IN section. namel 



This option may be used with either CONSERVE or 
COLLATE and enables the programmer to limit the 
modal specification to a particular section. When this 
option is used with CONSERVE or COLLATE the mode 
of generation reverts to the normal mode at the end of 
the specified section. There is no restriction on the 
number of times these modes may be altered. 



I . CON D Environment Card 



The COND card defines a computer console entry keys setting which may 
be interrogated by procedure statements. The general form of the COND 
card is: 

Name Type Description 



condition. COND KEYS W 

name 

The alphameric literal W is composed of 12 octal digits representing "on" 
settings of the 36 console entry keys. When the condition. name is tested 
in a procedure statement only the keys specified in 'nn' are tested for "on" 
setting. The specified console keys must all be "on" for the condition to be 
true. No "off" or "on" test is made for the non-specified keys. 

Note that Data Description condition. names are tested differently, i.e., 
for absolute equivalence to the specified value. 
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02.07 input/Output Facilities of the 709/7090 Commercial Translator 

A. Introduction 

Input/Output operations are handled within the Commercial Translator system by the 
709/7090 Input/Output Control System. 

This section is intended to explain how data may be organized and the commands 
used for efficient input/output. Examples are given to illustrate usage, and 
appropriate references are made to the General Information Manual and to other 
parts of this publication. 

B. Definitions 

1 . The Record 

A record is a logical grouping of fields. (See the Data Description section of 
the Commercial Translator General Information manual). A record is made 
available for processing from an input file by the GET command. The data so 
obtained may then be operated on by internal commands, such as SET and 
MOVE. A record is placed in an output file by the FILE command. 

2. The File 

A Commercial Translator file is a collection of logically related records stored 
in an external medium, such as tape or cards. Characteristics of a file are 
specified in the Environment Description (02.06). 

A file is referenced by the commands OPEN and CLOSE to initiate and complete 
file activity. (See Commercial Translator General Information manual). 

3. The Block 

Physical segments of data in a file are called blocks. A block may consist of 
any combination of records or parts of records. Four factors determine block 
and record relations: specified block size, whether records span the 
boundaries of the block, whether every record of the file begins a block, and 
whether each record is the block on tape (see SPANS, HOLD, BEGIN, 
BLOCK CONTROL and BLOCKSIZE in the Environment Description section, 
02.06). 
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The greater the length of a block, the greater will be the percentage of useful 
information that can be stored on a length of tape. However, large blocks do 
require large storage allocations which if too large, may not result in the 
most efficient balance between input/output and internal processing 
(computing). Blocks of 200 to 500 words will probably provide for the 
optimum processing of master records within the Commercial Translator system. 

4. Buffers 

The Loader reserves a portion of core storage for use by the I/O system 
as operating storage. This storage area is subdivided into buffers into which all 
input blocks of data are read and from which all output blocks of data are 
written. Since the IOCS routine attempts dynamic optimization of buffer 
assignments, data blocks of a particular file may be located within any of the 
buffers associated with this or several files. 

5. Locate and Transmit 

In the 709/7090 Commercial Translator system it is possible to process the 
records of an input file in the buffers or in an area(s) reserved for them 
outside the buffer area; all records in a file must be processed in the same 
manner. 

a) Locate Mode of Operation 

The GET command when dealing with a record to be processed in the 
buffer area 

i. 'locates 1 the next record in the file, i.e. , determines the 
position of the record within the buffer area, and 

ii. adjusts all program references to data within the record to 
reflect the new base reference address of the record within 
the buffer area. 

b) Transmit Mode of Operation 

The GET command when dealing with a record to be processed in an 
area assigned outside of the buffer area 

i. locates the next record in the file, and 

ii. 'transmits' the record to its assigned area. As the area 

assignment is fixed no adjustment of references to data within 
the record is necessary. 
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The 'transmit' mode is triggered by the selection of the SPANS, HOLD or 
CARD options on the Environment FILE card. 'Locate' is assumed when 
none of these options have been selected. 

6. Record Types 

a) Definition 

There are two record types, fixed length and variable length. 

i A fixed length record cannot vary from the length specified by the 

data description. When it is read or written, a fixed number or words 
are always made available or output from the buffer. 

ii The number of words in a variable length record is defined at object tim 
be use of the QUANTITY I N option. When it is read or written the 
current value of the data.name(s) specified by the QUANTITY IN 
option(s) defines the number of words to be processed. Storage, if the 
record is transmitted, is always allocated on the basis of the maximum 
»•*.« v, ...w ivwiu. i ns v*u/"viniii i i in t-iuuse, uy designating rhar rne 
length of a field within a record is variable in length, identifies the 
record as being a variable length record. 

b) Standard Variable Length Record Format 

i The standard variable length record when contained in an external 

storage medium or in a buffer area is always immediately preceded 
by a control word containing the record length. Although this control 
word is not described as part of the record in the Data Description 
and may not be addressed by the programmer, it must be considered 
in specifying block size for a file. 

The control word is automatically supplied for standard variable 
length records generated by the system, and must be supplied for those 
generated outside the system. The form of the control word for standard 
variable length binary records is: 

ia/tm n I j.l -r i • i- 

■ v^V- I I >t v/ , iGiiyill .vi .ICV/UIU .III . VYUIUS. 

Standard variable length BCD records must be immediately preceded 

Kv civ (A\ RCTl r-Urtrn rtorc cnarlAiInn *L« l~~«4.L ^C J. I I :_ J„ 

— / """" \ — / •*■+»** —•>«-»»«v. > w > « v^v.'wi tj in^ iiiw iwiiyin ui IHC ICUIIU III WWIU9. 

Facilities for handling non-standard variable length records are describe 
later in this section . 

ii Caution if a variable length record is to be processed in the buffer area 
(located) it cannot be expanded unless each record in the file begins 
a new block. No check is made for violation of this rule either at 
compile time or at execute time. 
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7. The GET Command 



The GET command makes available for processing the next record of an 
open file. If the file is not open and a GET command is given, the end of 
file exit is taken. No error message is given . The Commercial Translator 
language contains two forms of the verb: 

GET RECORD FROM filename 
GET record. name 

The verb is described incorrectly in the Commercial Translator General 
Information manual and the definition given in the last paragraph on page 
39 of the manual should be replaced with: 

"The first form of the command assumes that the system has at its disposal 
sufficient information to obtain the next record. When using a GET 
of the second form the programmer supplies the system with the name of 
the next record in the file. Regardless of what record is next in the file, 
it will be obtained by the GET in accordance with the characteristics 
associated with the specified "record. name 1 . The 'record. name' must 
be associated with only one input file in the Environment Description." 

In order to use the form 'GET RECORD FROM file. name' in 709/7090 
Commercial Translator programs at least one of the following conditions 

must exist: 

a) All records in the file are of a fixed and equal length. 

b) The beginning of each record in the file corresponds with the beginning 
of a tape block (indicated by the BEGI N option of the Environment 
Description FILE card). 

c) All records in the file are in the standard variable length form. 

d) Each tape block in the file consists of one complete record whose 
length is equal to the length of the block (signalled by the 
Environment BLOCK CONTROL). 

e) All records in the file which will be obtained by this form of the ^ 
command are included in a PATTERN in the Environment Description. 

C. Usage of the GET Command 

! 1 . Factors Affecting Choice and Use of Locate or Transmit Mode 

a) File characteristics and processing requirements 

A GET command instructs the system to make available for processing 
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a record which is in a buffer area. In the 709/7090 system, records 
may be either located or transmitted. Transmission occurs when 
either the HOLD or SPANS option is specified for the file in the 
Environment Description, SPANS being designated when records in 
the file may span blocks and HOLD when records of different names 
must be available from a file at the same time. 

b) Relative Efficiency 

The locate mode allows for more efficient utilization of memory, as 
no additional space outside of the buffer area is required for record 
storage . 

The locate mode allows for more efficient processing of records whose 
fields are referenced only infrequently in arithmetic, MOVE, or 
indexing operations. In general, a record should be transmitted if 
the number of words in the record is less than three times the total 
number d cri tumeric and MOVE references to fields of the record. 

c) Miscellaneous Requirements of Locate and Transmit Modes 

i |f the locate mode is being used, no references can be made to 
the record or its fields until after execution of a GET command 
for that record. All references to fields of a located record 
initially specify location zero. Upon a GET these references 
are adjusted to reflect the location of the data within the buffer 
area, if references are made to located fields prior to the 
first automatic GET adjustment the low order portions of 
memory (the monitor) will be irreparably damaged. 

ii When through use of the type code REDEF a record is specified 
to share an area with data other than records within the same 
file, all records of the file are automatically 'transmitted 1 . If 
the records of the file were originally to be located a message 
is printed indicating this change. 

iii All records of a file (whether located or transmitted) which are 
related through use of the Data Description type code REDEF 
— ..— ^v, mvmhuwic mi pi <~> reading wneri uny one or me records 
is reoijes*"e^ with ¥\n& ntT ^^r^^^^j u/u__ _j_ _r , &i. 

processed in the locate mode are obtained using the GET RECORD 
FROM filename form of the verb the result is as described above. 

2. End of File Processing 

The AT END clause which may be used with the GET command may consist 
of a single imperative statement only. The clause is used to specify the action 
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to be taken when the end of a file is reached. A programmer may omit the 
clause when it is felt no end of file condition will occur with a particular GET. 

However, when no alternative action is specified through use of the AT END 
clause, the discovery of an end condition in attempting to GET a record will 
cause immediate termination of execution of the object program; an error 
message is printed on-line indicating the cause. 

3. Input Error Processing 

IOCS automatically attempts to correct most input errors discovered in 
processing. 

a) Input Errors Uncorrectable by IOCS 

i Unrecoverable Redundancy Errors 

These are errors typically caused by permanent tape defects and 
and attempts to read tapes in the wrong mode. 

ii Block Checksum Errors 

A block checksum error occurs when ihe checksum of the block 
written with it on tape does not agree with the checksum 
calculated at the time the tape is read. Block checksums are 
not checked unless the Environment SPECIF card option 
CKSUMS is selected (see section 02.06). 

iii Block Sequence Errors 

Block sequence errors occur when an out of sequence block 
number is discovered. If block sequence checking is desired 
the Environment SPECIF card option SEQ must be selected 
(see section 02.06). 

iv Record Length Errors 

Record length errors (referred to as EOB errors in the IOCS 
manual) generally arise when information in a block does not 
conform with the blocking conventions described by the programmer 
in -the Environment Description. (Records of an input file which 
span block boundaries cannot be processed unless the SPANS 
option is specified). 

Record length errors are totally unrecoverable by IOCS or the 
programmer and cause immediate termination of object program 
execution. An error message is given on the on-line printer. 
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b) Facilities for Programmer Error Recovery 

IOCS cannot continue processing after discovering an unrecoverable 
redundancy error, a block checksum error or a block sequence error 
without direction from the programmer. The ON ERROR option of 
the Environment FILE card provides for communication between IOCS 
and the programmer in these three error situations. 

In certain simple error situations such as an unrecoverable redundancy 
error discovered in a file whose records are complete within the block, 
the programmer may elect to return directly to the GET command 
ignoring the error(s) in the unreadable record. This is accomplished 
by specifying in the ON ERROR clause of the FILE card the procedure. name 
associated with the GET command. 

Recovery from most errors, however, is much more complex. The nature 
of the error discovered by IOCS must be obtained and analyzed by the 
programmer and then recovery attempted with or without IOCS routines. 
A detailed explanation of IOCS facilities available to the Commercial 
Translator programmer is given in the IOCS manual (primarily pages 
17 and 18). 

c) System Action When Programmer Recovery not Attempted 

If the programmer does not provide for error recovery through the 
ON ERROR clause, when an lOCS-unrecoverable error is discovered 
during execution of the object program, the system prints an on-line 
message describing the type of error and the name and certain 
characteristics of the offending file. Control is then returned to the 
Commercial Translator Supervisor for processing the next job. 

D. Usage of the FILE Command 

The FILE command transmits a record from a reserved memory area or an input buffer 
to an output buffer area for automatic processing onto tape or cards. 

1 . Forms of the Command 

a) FILE record. name 

The command "FILE record. name" causes a record to be filed in the 
output file(s) with which it has been associated through the Environment 
Description. A record so filed is still available for further processing. 
However, if the record carries the option PRIMARY in one or more of 
the output files to which it is associated with in the Environment 
Description, it is only filed in those files wherein it is so classified. 
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b) FILE record. name IN file. name 



This form of the verb provides a means of filing a record in a specific 
file when the record. name is associated with several output files. 

2. Miscellaneous Considerations 

a) In using either form of the FILE command the record. name must be 
associated in the Environment Description with the name(s) of the 
file(s) into which it is to be filed. 

b) If a file has not been OPENed or has been CLOSEd when a FILE 
command is encountered at execution time, the command acts as a 
NOP. No error message is given. 



Variable Length Record Options 

The options described for manipulation of variable length records are specified on 
the Environment FILE card for each record to which they pertain. They may be 
elected selectively when only the GET record. name form of the GET command is 
used to obtain records in the file; the options must be specified for all records if the 
GET RECORD FROM filename foim is used. 

1 . Non-standard Variable Length Input Records 

Facilities are provided for handling variable length input records not preceded 
on tape by the standard control word in either one of two ways: 

a) By use of the FIND LENGTH IN data. name option 

If the length of a non-standard variable length record is already 
available in storage at the time the record is to be obtained, its 
location in storage may be indicated to the I/O system through use 
of this option. 

b) By use of the BLOCK CONTROL Option 

If the length of a non-standard variable length record is always equal 
to the size of the block in which It appears, this characteristic is 
specified by the BLOCK CONTROL option. 

The PLACE LENGTH IN data. name option requests that the length 
of the record obtained be placed in the specified data. name after 
completion of the GET command. The data. name is not required to 
be in the record referenced. This option may be used with either of 
the above two options. 
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2. Variable Length Output Records 

a) NO CONTROL WORD 

This option when associated with the name of a variable length 
record on the Environment FILE card, instructs the system to suppress 
generation and output of the standard control word for the record. 

b) Fl ND LENGTH I N data .name 

Specification of this option notifies the system that when the record 
is filed its length is to be taken from the data. name specified rather 
than calculated on the basis of the length of the fields of the record. 
The data. name specified need not necessarily be in the referenced 
record. This option may be specified whether or not standard 
control words are to be prepared . 

f) Dl ArP I PKjriTU IM j~*„ ~~~~ 

— / • w/*% >-. 1. l_ 1_ I ^1 \*S III I I N UVI I VI • ■ l\J 1 1 IC 

This option instructs the system that prior to filing the record 
referenced, the length of the record is to be placed in the location, 
data .name, which is not required to be in the record. 

3 . Use of the Options with Fixed Length Records 

For special purposes, the programmer may employ in connection with a 
fixed length record any of the variable length record options explained 
above. NO CONTROL WORD will produce no effect. 

F. Examples of Usage 
1 . Example 1 

a) Statement of problem 

I Clio f^ne! c><-<> s%f »«,.«».. J ~ ~.C ±L_~_ ft I l-__j.l„. 

■ ■•«. wiiaiwia wi isvviug ui mice IIACU ICIlyiMS: 

RE CI - 64 words 
REC2 - ]28 words 
REC3 - 192 words 

ii The exact order in which records appear on tape is unknown. 

iii Block size is specified as 256 words (BLOCKSIZE 256) . 
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iv Records do not span block boundaries nor is holding required. 
(SPANS or HOLD option not taken). 

v Each record start does not coincide with the beginning of a 
new block (BEGIN option not taken). 

b) Illustration of Tape 

A portion of the tape might be: 




v 
Block J+2 



c) Problem Explanation 

Blocks J and J+2 are full 256 word blocks. Block J+l is only 192 
words long because REC3 could not be placed in Block J+l without 
exceeding the 256 word limit on block size, nor could part of the 
record be put in Block J+l and J+2 since records of this file are not 
allowed to span blocks. 

When input these records will be processed in the "locate" mode 
(condition iv above) . They may be obtained only with the GET 
record. name form of GET since the records have differing fixed 
lengths and no pattern has been supplied. 

If the records are presented for output in accordance with the stated 
specifications and in the order shown the system will automatically 
prepare the tape as illustrated. 
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2. Example 2 

a) Statement of problem 

i File consists of records of three fixed lengths. 

REO- 64 words 
REC2- 128 words 
REC3 - 192 words 

ii The exact order in which records appear on tape is unknown 

iii Block size is specified as 128 words (BLOCKSIZE 128). 

iv Records may span block boundaries (SPANS option taken). 

v Record always start at the beginning of new blocks 
(BEGIN option taken). 



b) Illustration of Tape 

A portion of the tape might be: 




Block J Block J+l Block J+2 Block J+3 Block J+4 

c) Problem Explanation 

Blocks j, j+i, j+3, and j+4 are truncated in order to satisfy the 
BEGIN option REC3 exists in Blocks J+3 and J+4 since it is too 
large to be contained in a single block and records are allowed to 

S|juii uiugKs in mib nie. 

When input these records will be processed in the transmit mode 
since they may span block boundaries. The GET record. name 
form must also be used with this file for reasons outlined in 
Example 1 . 
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3. Example 3 

a) Statement of problem 

i Records composed of 85 characters of significant information 
have been put on tape using standard card-to-tape equipment, 
The information for each record is contained on two cards: 

Card 1 - 72 characters 
Card 2-13 characters 

ii The records of the file are all of the same fixed length and 
the same record .name. 

iii Block size is specified as 12 words (BLOCKSIZE12). 

iv The records span block boundaries since they must exist in 
two blocks (SPANS option exercised). 

v Records always start at the beginning of a new block (BEGI N 
option exercised). 

b) Illustration of Tape 

A portion of the tape might be: 



Block J+l 



Block J+2 




;<84char f>/ 



card-to- tape | 

I 
,£72 chor— >1 



1 



i 



/, 



84 char | 
'card-to-tape I 



^<-L72char->| > 



13 
char 



LJ 



"2 



84 char 
card-to-tape 

72 char I 

I 
L 



RECORD 

c) Explanation of Problem 

In this file hardware characteristics force a somewhat artificial 
record and block structure. The two parts of the 85 character 
records do not appear on tape contiguously, being separated by 
a record gap and by extraneous information. Additionally, 
useless information appears on tape between consecutive records. 



The block size of 12 directs the system to bring only 12 words from 
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each tape block into internal buffer areas, thus discarding the last 
2 words of each block. Since the SPANS option is exercised, the 
first !2 words of BLOCK J and the first 3 words of Block J + ] will 
be transmitted to a 15 word memory area reserved for the record. 
The remaining portion of Block J + 1 is discarded due to the use of 
the BEGIN option, which directs system attention to a new block 
when a GET command is issued. 

Either form of the GET command may be used to obtain records 
from this file. 

4. Example 4 

a) Statement of Problem 

i File consists of standard fixed length records prepared on card- 
to-tape equipment. 

RECI - 80 characters 
REC2 - 80 characters 

ii The exact order in which records appear on tape is unknown. 



b) 



iii Block size is specified as 14 words (BLOCKSIZE 14) as it is 
desired to make all 80 characters available. 

iv Records do not span block boundaries; however, it is desired 
to retain each record until the next record of the same name 
is obtained (HOLD option taken). 

v Each record begins a new block (BEGI N option taken) . 

1 1 1 ustration of Tape 

A portion of the tape might be: 




RECI 

80 char-> 



^^ 



84 char — U^ 
card-to-tapej 



X^- 84 



REC2 j 
80 char-^j 

char— 4- 



card-to-tape 



ipej 



>^ 



<d 



Block J 



Block J+ 1 
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c) Explanation of Problem 



Blocks J and J + 1 each contain 84 characters (14 words); 80 
characters of the record plus 4 characters of unwanted data which 
the card-to-tape equipment supplied to make the block a multiple 
of six characters. 

Upon the command 'GET REC1 ' (assuming that REC1 is the next 
record to be read) 14 words are transmitted (because of the HOLD 
option) from the buffer to the area associated with REC1 . Now if 
the command 'GET REC2' is given, 14 words are transmitted to the 
area belonging to REC2. The information at REC1 is still available 
after this second command and will continue to be available until 
replaced by another 'GET REC1 '. 

Note, other Commercial Translator operations, such as the MOVE, 
will be based upon the 80 characters specified in the Data 
Description of the record rather than the 84 characters appearing 
on tape. 
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02.08 The 709/7090 Machine Symbolic Language - CRYPT 

A. Introduction 

The 709/7090 Commercial Translator System provides the programmer with the 
ability to include symbolic machine language instructions and data description 
at any logical point in his program. The procedure command, 'ENTER CRYPT 1 
signals the System that the ensuing source statements are in symbolic machine 
language form. The object instructions generated from these statements will be 
located immediately following the last word generated from the preceding 
Commercial Translator statement. 

The symbolic machine language acceptable to the system is similar to SCAT, with 
several restrictions and some additional flexibility. The standard SHARE 709/7090 
-oding form is used for CRYPT statements. 



B. CRYPT Rules 

The rules of the SCAT system are modified in the following way for CRYPT. 

1 . Since the special characters (see chapter 2 of the General Information manual) 
are used for special purposes in the source language of Commercial 
Translator, these characters cannot be used as part of symbols. The same 
rules which are applied to Commercial Translator names are applied to 
CRYPT names. 

Examples of. illegal or specialized usage are: 

L(5) Will be interpreted to mean the fifth of the 

array elements, L. 

. AB. A period may not be used as the first or iast 

character of a symbol . 

A'Rl$ Tn*» rllfimrtorc "niinffitinn KAnrU " "loft Pnront-kocic " 

"Right Parentheis," "Dollar Sign" may not be used as 
part of a symbol . 

2. No SCAT macros are acceptable. 

3. The only pseudo ops which may be used are: 

OCT BSS 

PZE, etc. (both MZE and FOR sets) BES 
EQU BCI 
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4. The following pseudo ops may not be used: 

HEAD 

VFD 

DEC 

DUP 

ORG 

SYN 

END 

5. Literals are not presently permitted in machine language. 



C. Flexibility Above that of SCAT 

In using the CRYPT language, advantage may be taken of several Commercial 
Translator features which have been added to SCAT facilities: 

1 . Names which are defined in the Commercial Translator sections of the 
program may be referenced in the variable field of the machine language 
sections. Thus, names in the variable field may contain up to 30 
characters. Compound names (qualified) may not, however, be used in the 
machine language section. If such a qualified name is to be used, it should 
be renamed as a single name, using the CALL verb outside a CRYPT section. 

2. The Commercial Translator system for the 709/7090 addresses array elements 
by the use of "Symbolic Registers". The Symbolic Register for the array, 
A(I,J), always contains the address of the element corresponding to the 
present values of the component variables, I and J. The system will replace 
a symbolic instruction of the form CLA A(l, J) with the following 
instruction: CLA* SRAIJ. It should be noted that the system will not 
check for changes in component variables while in the machine language 
mode. Therefore, although the programmer may change the values of I or J, 
the Symbolic Register for A(I,J) will not be updated by the System. Also, 
indirect addressing is not permitted on the original operation. 

3. Arithmetic expressions may contain parenthesis. For example, the following 
is a legitimate usage: AXT A*(B+C),4. 

4. The Commercial Translator Data Description form provides a flexible and 
effective means of describing data and entering constants. 
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D. Machine Language Instructions Generated from CRYPT Language 

There are several instances where the System develops instructions which do not 
agree with those specified by the symbolic source language on a one-to-one 
basis. If DATE is specified in the Environment and Data Description sections as 
a field of record to be processed in locate mode, the system will generate for 
CLA DATE the machine language instructions of the form: 

LAC BASE . LOCATOR . OF . DATE , 4 
TXL SYS)294, 4,0 
CLA DATE.DISP,4 

where: 

BASE. LOCATOR. OF. DATE contains the current origin of the 

record in which DATE appears. 
SYS)294 is an error message routine that prints the fact that 

BASE. LOCATOR. OF. DATE has not been set if such is 

the case. 
DATE. DISP is the displacement of the DATE field from the 

base location of the record in which it appears. 

Note that the contents of index register 4 are destroyed, and that instructions 
have been inserted in the program. Care must be taken to avoid incorrect 
referencing when relative addressing using * to signify the location counter is 
used. 



Return to Commercial Translator Language 

Processing of CRYPT instructions is terminated by an ENTER COMMERCIAL 
TRANSLATOR instruction. ENTER is punched as an operation code and 
COMMERCIAL TRANSLATOR as a variable field entry beginning in column 
16. The Compiler expects to find Commercial Translator source statements 
after this instruction. 
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SECTION 03.00 



LOADER 



INTRODUCTION 

The Loader, under the direction of the Commercial Translator Supervisor 
creates a machine language program from the relative binary deck(s) produced 
by the Compiler and normally turns control over to the program for execution. 
As part of the loading procedure, separately compiled program segments are 
combined; storage is allocated for program instructions, data and buffers; 
object program, system subroutines and specified IOCS modules are loaded; 
and control is transferred to the object program starting point. 

A detailed description of the control cards which direct the Loader, and a 
discussion of the Loader input and output appear in this section. 

Current Loader Deferred Features, Restrictions, and/or Limitations are found 
in Appendix 90.01 . 
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03.01 Composition of the Commercial Translator Deck to be Loaded 

A. Deck Composition 

A Commercial Translator deck to be Loaded is composed of the following types of 
cards and is processed in the order indicated . 

1. $LOAD 

2. Symbolic Control Cards (in any order) 

*FILE 

*SPEC 

*POOL 

*GROUP 

*RETAINS 

♦DELETES 

*FILEQU 

*START 

3. *CTEXT 

4. Relative Binary Program Deck (see section 90.03 for deck details and 
specifications). 

a) Control Break Table 

The control break table defines procedure and/or data areas in this deck 
which may be deleted; or replaced or referenced by other program 
segments, which have been separately compiled (see CONTRlun 
section 02.06). 

b) File Check Table (see section 90.03 for specifications) 

The file check table is used to validate the contents of the generated 
file block (see IOCS manual) and the assignment of each file to a 
buffer pool . It transmits the location of any non-standard label routines 
to the IOCS System. 

c) Text 

Compiler produced machine language instructions and data references. 

5. *CTEND 

6. Special end-of-file card (or physical end-of-file) 

B. Combination of Separately Compiled Decks (Not currently available). 

This feature allows cross-referencing of common data fields and procedure sections. 
The data description for a common field must be included within each compilation 
whi dereferences this field. The allocation of a unique storage area to a common 
data field or section may be specified by loader control cards. 



709/7090 Commercial Translator 
2(1/62) 03.01.02 

If more than one deck is to be run as a single job, the symbolic control cards 
required for the combined program are loaded first, followed by the Relative 
Binary Program decks (each consisting of parts 3,4 and 5); and, finally, the 
end-of-file. The symbolic control cards of the individual segments may be 
retained with their Relative Binary Program cards. However, all symbolic 
control cards appearing after the initial Relative Binary Program deck will 
be ignored by the Loader. 

C. Requirements for Loading a Single Deck 

To load a single deck, the required cards are 



1. 


$LOAD 


2. 


Symbolic Control Cards 




*FILE 




*SPEC 


3. 


*CTEXT 


4. 


Relative Binary Deck 


5. 


*CTEND 


6. 


End-of-file 



The Compiler produces all of these except the $LOAD and the end-of-file card, 
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03.02 Loader Control Cards 



Introduction 

Loader control cards direct and control the Loader in such functions as 
combining separately compiled programs and allocation of storage for buffers. 
Also, they describe the physical file characteristics required by the 709/7090 
Input/ Output Control System. Most control cards are supplied by the compiler. 
However, the programmer might wish to supplement or replace them in some 
cases. Loader control cards must be placed at the beginning of the program 
deck. If placed otherwise, they are not interpreted. 

$LOAD Card 

1 . The Loader is called when the Comrrercial Translator Supervisor recognizes 
the $LOAD card of the form: 



1 - 6 
$LOAD 



8-13 
deck. name 



16 - 54 

MIMIMUM" 

BASIC 

LABELS 

IOEX 

55 - " 



[_, logic] qmapj 
QnogoJ Qfile^I 



72 



[^secondary . identifier] 

The options in the variable field must be separated by commas and may 
appear in any order. Any combination of options may be selected with no 
blanks separating them. 

2. The options are defined as follows: 



MINIMUM 
BASIC 
LABELS 
IOEX 



[TlogicJ 



MIMIMUM requests that the minimum IOCS package be 
made available, BASIC requests that the basic IOCS be 
made available, LABELS request that the full IOCS with 
labeling features be made available, and IOEX requests 
that the Input/ Output Executor be made available, (see 
709/7090 IOCS manual for definition of these forms). 
If no option is selected the MINIMUM IOCS will be made 
available unless checkpoint is specified. In this case 
BASiC iOCS wiii be avaiiabie. However, the full 
(LABELS) IOCS will be made avaiiabie if labels are to 
be handled. 

Instructs the Loader to list the origin and extent of all 
program sections, system subroutines required for 
execution (including IOCS) and buffer assignments. 
This option may be specified on the $CMPLE as a 
'carry through' feature when a 'compile and load' run 
is to be made. 



[>wQ 
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This option has not yet been implemented. It will provide 
for obtaining load-time information in addition to that 
supplied by LOGIC. 



r NOGOl Instructs the Loader to inhibit execution of the program after 
*- -* loading. It does not affect the LOGIC option. 

f FILES~I A list of files showing the l/O unit assignments made by 

the Loader, and any mounting instructions, is always prepared 
for the operator. If this option is specified, a duplicate of the 
file list is written on SYSOU1 . 

"£ secondary .identifier] 

The information in these columns will appear in the page 



headings of all output prepared on SYSOUl . 



C. *FILE Card 

1 . Format 



The format of the *FILE card is, with two exceptions, the same as that 
specified in the 709/7090 IOCS reference manual . That is, 

j.6 7-11 14-15 17 18-21 22-25 27-35 38-41 

deck.name *FILE file.no M unitl unit2 controls reel.seq 

44-48 51 - 53 55 - 72 

file. serial ret .days Filename 

The two exceptions are: 

a) The file number (file .no) is assigned to each file by the Compiler and 
appears with the file name on the listing provided by the Compiler. 
In this card the field does not occupy column 13. 

b) The unit (unit 1 and unit2) specification has been modified to include 
relative unit assignment, symbolic channels, and tape transport model 
type. The card fields have been enlarged from three to four columns: 
columns 18-21 for unitl and columns 22-25 for unit2. 

Appendix 90.08 contains a chart showing how the options of the 
Environment FILE and SPECIF cards are used by the Compiler in preparing 
the *FILEcard. 

2. Unit specifications (unitl, unit2) 

The notation employed in explaining these options is: 

X denotes one of the real channels A, B, . . .,H 

P denotes a symbolic (unspecified physical) channel S, T, ..., Z 

k denotes one of the unit numbers 1, . . ., 9, 

m denotes a tape transport model number, II or IV. 
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The unit specification may be made in any of the following ways: 

a) No specification - when the option is not exercised any available 

unit is to be assigned to the file. 

b) m any available unit of this model type is to be assigned to 

the file. 

c) X any available unit on this physical channel is to be 

assigned to the file. 

d) P - all files in the job having this symbolic channel 

designation are to be assigned to the same channel. 

e) X(k) - the kth available unit on the specified channel is to be 

assigned to the file; note that the parenthesis are 
required. 

Pm any available unit of this model type on the symbolic 

channel specified is to be assigned to the file. 

g) Pkm - an available unit on the symbolic channel, having this 

model number, is to be assigned to the file, k in this 
use without parenthesis indicates the order of 
preference for the channel so that if the number of 
available units on the channel is less than the total 
requested for the channel those with lower numbers are 
to be assigned to the same channel. 

h) System units may be assigned by: 

i IN - the current system Input unit is to contain the file, 

ii OU - the current system Output unit is to be used for a 

printed output file. 

iii PP - the current system Peripheral Punch unit is to be 

used for a punch output file. 

iv UTk - System utility tape k (non -parenthesized k= 1-4) 

is to be used for the file. 

i) Card equipment is assigned for a file by: 

1) RDX - card reader, channel X 

2) PRX - printer, channel X 

3) PUX - card punch, channel X 
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j) As a special option, an * in the UNIT2 field indicates that the 

secondary unit of a file is to be any unit on the same channel and 
of the same model type, which is available after all other 
assignments have been made. At load-time if units are available, 
but of a different model, one will be assigned; if no units are 
available on the channel, no secondary unit is assigned prior to 
execution of the job. 

3. Unit Assignment 

Units are assigned in the following order: 

1 . System units 

2. Card units 

3. Units on specified channels 

4. Units on symbolic channels 

5. Units with model only specification 

6. Unit with no (blank) specification 

7. Secondary units designation with * 

It should be emphasized that relative unit specification is not the same as 
the physical setting of the tape unit. The use of A(3), for example, will 
result in the assignment of the third available unit on channel A; and not 
necessarily the physical unit A3. (An available unit is one presently 
attached to the machine, and not assigned for system use.) However, the 
assignment procedure is such that designation of a given relative unit on 
a given (physical) channel will always result in the same choice of unit, 
provided that the unit sequencing is nor disturbed between jobs by use of 
the Basic Monitor $ATTACH -|$AS]control cards. 

When consistent tape assignments are required (e.g. , when a file is used by 
two successive jobs or when a file is written and then read in the same job) 
the unit specifications should be identical in the FILE cards. The units 
should be specified as system utilities (UTk) or by means of specific channels 
(X) with low unit availability designations (k) in order to guarantee use of the 
same drives. 

Care should be taken in assigning system utility units (SYSUTk) to object 
program files. In particular, they should not be assigned to files which will 
specify in the printed file list the immediate mounting of tapes by the 
operator, since these tapes will still be in use after this list is printed. 

D. *SPECCard 

The *SPEC card supplements the *F1LE card in supplying file information. The 
format of the *SPEC card is: 
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1-6 7-11 14-15 17-20 22-23 25 27 

deck. name *SPEC file.no blocksize activity open close 

The "deck. name' and 'file.no' are used to identify the file as the same file described 
on a *FILE card. Unless the same 'deck. name' and 'file.no* appear on a *FILE 
in the deck the *SPEC Card will be ignored. 

'blocksize' is normally a number (0-999) but may be left blank. A number in this field 
specifies the maximum number of words to be input or output in a single block. It may 
be desirable to change the blocksize in an attempt to obtain better input/output 
processing speeds or tape utilization. Conflict with file specifications entered in the 
Commercial Translator Environment section must be avoided. The loader will check 
most normal situations in accordance with information supplied to it by the Compiler. 

'activity' may be specified as a number 0-99 or may be left blank. A number in this 
field specifies the relative activity of the file in respect to other files and is used by 
the Loader in the allocation of buffer areas. 

The 'open' options are: 

I • N -No rewind 

2. R or blank -Rewind 

The 'close' options are: 



1. 


U 


-Rewind and unload 


2. 


R or blank 


-Rewind 


3. 


N 


-No Rewind 


4. 


S 


-No file mark or trailers, no rewind 



Appendix 90.08 contains a chart showing the source of the fields of the *SPEC card 
when it is generated by the Compiler. 



E. *POOLCard 



The *r*OuL card designates which files are to share common buffer areas. The format 
of this card is: 

1-6 7-11 14-15 17-20 23-25 27 

deck. name *POOL pooi.no biocksize buffer. cnt fiiel, file2. ..filen 

The 'blocksize and buffer count' specifications are described in the Environment 
Description POOL card (section 02.06). 

1 . If the file referenced is described in the deck named on the *POOL card, 
specification of the file number shown in the compiler file list adequately 
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identifies the file. Its format is 

file.no 

2. If the file reference is to a file in a deck other than the one named on the 
*POOL card, the deck. name of the deck in which the file is described must 
be specified in addition to the file number. Its format with required 
parentheses is 

deck. name (file.no) 

The file references must be separated by commas and no blanks may be embedded 
in the field.. 

If the variable field information extends beyond a card additional cards may be 
used as needed. However, the 'deck. name 1 and a 'pool .no' must be the same 
on all cards for the same pool . All other remaining fields need appear h only 
one of the cards; if on more than one, the first (non-blank) value encountered 
is used . 

F. *GROUPCard 

1 . Format 

The information of the *GROUP card corresponds to that on the Commercial 
Translator Environment GROUP card. The format of the *GROUP card is: 

1-6 7-12 14-15 17-18 20-21 23=25 

deck. name *GROUP group.no pool.no Opn.cnt Buffer. cnt 

27 

file 1, file2, . . .,filen 



2. Specification 



File references and variable field overflow, follow the same rules as the 
*POOL card. The deck. name, if used, must correspond to that of the 
*POOL card with which it is associated through the pool number. The file 
references on the *GROUP card need not be duplicated on the *POOL card 
in order to be included in the pool . However, the *POOL card may have 
file references other than those on associated *GROUP cards. 

All *POOL cards are processed first, in the order read, then *GROUP cards. 
If there is a conflict in pool or group assignments (e.g., a file directly 
assigned to some pool, then to a group belonging to another pool, or a file 
assigned to two different groups or pools) the first assignment is used. 
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In the absence of any *POOL or *GROUP cards, the Loader will make its 
own assignments. These cards enable the user to make a more sophisticated 
assignment, based on knowledge of file use and activity. 

G. *FILEQUCard 

When separately compiled decks are combined, the loader must be told which files 
are common so that they can be processed as a single file. The names associated 
with a file at compile time are not available at load time; rather, files are identified 
by deck. name and file number. This identifying information is used on the *FILEQU 
to specify file equivalence. The form of the *FILE QU card is 

1-6 7-13 16-72 

deck. name *FILEQU filel ,file2, . . . ,filen 

All files referenced on a *FILEQU card take on the processing characteristics of the 
first file referenced whose characteristics are defined by a *F|LE card. File references 
may be of two forms: 

1. deck. name (file.no) 

'deck. name 1 is the name of the referenced program segment in which the file 
appears (see deck. name in *FILE card) and 'file.no' is the identifying number 
of the file within the referenced deck. 

2. file.no 

'file.no' identifies a file whose deck identification is that specified in 
columns 1-6 of the *FILEQU card. Note that all blanks in columns 1-6 of 
the *FILEQU card may be used as a legitimate qualifier for each specified 
tile.no . 

As all files referenced on a *FILEQU card take the same processing characteristics 
as the first file mentioned, those processing characteristics may be altered by altering 
the content of the *F!LE and *SPEC cards for that first file. 

In case all of the equivalent files cannot be specified on a single card, additional 

cards mav be used„ At leant nn#» r>f tk«» file roforan^ac «« fU« ««.* ^«^j ~..,4. 

on the subsequent cards. 

H. *RETAINSCard 

When several separately complied programs are to be run as a single job, certain areas 
of procedure or data, referenced in the individual compilations must be identical. 
These areas must be specified in the Environment Description of each compiled job on 
CONTR L cards (see section 02.06). The extent and nature of the area is entered 
into the Control Break table of the compiled program together with the external 
reference name (ex.nm) as given on the CONTR L card. The Loader identifies the 
equivalence of these areas by means of the external reference names. In the absence 
of any other information, the area is assumed to be located in the first program 
segment containing the 'ex.nm' in its Control 
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Break table. All instructions and data corresponding to this area in the other 
segments are deleted by the Loader, and all references in these programs are 
changed to reflect the new location. 

Since it is not always possible to arrange the order of the deck so that a CONTRL 
area is located in the first segment, the *RETAINS card provides a means by which 
the location of such an area can be established as desired. The format of this 
card is: 

1-6 7-15 16-72 

deck . name *RETAI NS ex . nml , ex . nm2, . . . , ex . nmk 

'deck. name' is the name of the program segment in which the CONTRL areas 
ex.nml ,ex.nm2, . . . ,ex.nmk are to be retained. These named areas will be deleted 
from all other program segments. If ex.nmj does not appear as an entry in the 
Control Break table of program 'deck. name', it cannot be retained by the program, 
and will have no effect on the loading procedure. 

The variable field entries, ex.nmj, are separated by commas, and there must be 
no embedded blanks in the field. 



* DELETES Card 

The * DELETES card eliminates procedure and data areas defined by an Environment 
CONTRL card. For example, to delete sections of a program that were originally 
intended as an aid In source language debugging. The format of the *DELETES card 



1-6 7-14 16-72 

deck . name * DE LETES ex . nml , ex . nm2, . . . , ex . nmk 

where ex.nmj is the external reference name appearing in the CONTRL card 
which defined the area. If a 'deck. name' is given, the CONTRL area(s) will be 
deleted only from the named program. If no 'deck. name' is given then the 
CONTRL area(s) will be deleted from all programs in which they appear. 



J. *STARTCard 

The Loader will normally use the starting point of the first program of combined 
segments as the starting point for the combined deck. The * START card permits 
this to be varied. The format of the *START card is: 

7 16 

*START deck, name 
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Execution of the combined program will begin at the starting point of the deck named. 
K . *CTEXT and *CTEND Cards 

The *CTEXT and the *CTEND cards, supplied by the compiler mark the beginning and 
end of the relative binary deck (control dictionary, file check table, and text) 
produced on a single compilation. No modification or reordering of the binary deck 
should be attempted. The formats of these cards are: 

1-6 7-12 26-54 55-72 

deck. name *CTEXT date. and. time secondary, identifier 

deck. name *CTEND date. and. time secondary, identifier 

'deck. name' and 'secondary. identifier' are those supplied on the $CMPLE card and 
'date .and. time' are supplied by the Compiler to specify when the deck was produced. 
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03.03 Loader Output 



A. Program for Execution 

The binary object program deck, together with required subroutines, 
appropriate I/O routines and tables and a portion of the Basic Monitor, 
is placed in core storage by the Loader. If the program is to be executed, 
control is transferred to it at the conclusion of the loading process. The 
following chart illustrates the general layout of core storage at execution time, 



32767 
32256 



3840 

1856 

1400 
350 





Available for Customer Usage 



Primary Object Time Subroutines 



Program Initialization and Loading Routines 
('Overlaid by buffer pools)^ 




Buffer Pools 



Secondary Object Time Subroutines 



Program 




Transfer to Program Start 



Define, Attach Calling Sequences 



File Lists 



File Block 



IOBS 



CTM (Commercial Translator Monitor) 



IOEX 



Basic Monitor 



Note: The core addresses shown above are approximate, 
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The program elements of the chart are described as follows: 

File Block - this is a 12-word File Control Block for each 

file required by the program. 

File Lists - these are generated for each buffer pool, showing 

the group structure and the files assigned to the 
pool. 

Define and Attach Calling Sequences - 

each buffer pool must be defined by a reference 
to the IOCS subroutine, DEFINE. Files are 
attached to this pool by reference to the ATTACH 
subroutine. These calling sequences are generated 
by the Loader and are the first instructions 
executed . 

Transfer to Program Start - 

the instruction following the last ATTACH calling 
sequence is a transfer to the start point of the 
program. 

Secondary and Primary Subroutines - 

three types of subroutines are used, Secondary, 
Primary, and Fixed. 

Secondary subroutines - 

such subroutines, if called by the object program, 
are treated as program sections and are loaded 
following the end of the program in core storage. 

Primary subroutines - 

certain object time subroutines are expected to 
have a large number of references in the object 
program. To avoid placing all instructions 
containing such references in the 2TEXT*file, 
primary subroutines, which are required to have 
a fixed length not modified by the loading 
process, are assigned core storage locations at 
the upper end of memory. This assignment is 
made at the time the first reference to the 
subroutine is encountered. 

Fixed subroutines - 

all program references to points in IQEX, CTM 
and IOBS are defined by fixed subroutines, each 
of which has an assigned origin. These fixed 
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subroutines are nothing more than BSS 
"maps" of the corresponding communication 
regions. 

' - 2TEXT is a file generated by the loader 
during the first reading of program text, 
including subroutines. In this file are 
placed all instructions containing 
references which cannot be defined until 
the first text pass is complete (e.g. , 
references to secondary subroutines, 
references to control break sections in 
a program not yet loaded). 

B. Printed Messages 

1 . Off-line on SYSOU1 

a) Error messages 

b) The file list if the FILES option was selected 

c) A storage map of the program, subroutines and buffers 
ready for program execution, if the LOGIC option was 
selected. 

2. On-line Printer 

A file list is printed showing input/output unit assignments and 
the tape mounting instructions for the operator. 
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SECTION 04. 
SUPERVISORY SYSTEM 
INTRODUCTION 



The Commercial Translator Processor operates as one of a group of processors 
which are connected and controlled by a system supervisor called the 709/7090 
Basic Monitor. The flow of jobs through the Commercial Translator Processor 
is controlled by the Commercial Translator Supervisor (CTM). This section explains 
the functions of: 

1 . Basic Monitor 

2. Commercial Translator Supervisor 

An attempt has been made to provide sufficient operating detail to enable an 
installation to exploit fully the capabilities of the Basic Monitor, without obscuring 
the simple methods of ordinary job running. 

For a more detailed explanation of the Basic Monitor refer to the manual, IBM 
7090 Operating Systems: Basic Monitor (IBSYS). Form J28-8086-0. 

For input/output, checkpoint and restart facilities refer to the 709/7090 Input/Output 
Control System. The form number of the manual is C28-6100-2. 
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04.01 FUNCTION OF THE BASIC MONITOR 



The primary function of the Basic Monitor is to provide continuous automatic operation 
of a sequence of (stacked) jobs which might involve different processors. For this 
purpose, it is divided into two parts: 

1 . A Nucleus, consisting principally of tables, which remain in core at all 
times, occupying a minumum amount of space. The Nucleus provides the 
communication necessary for inter-job and inter- processor continuity. 

2. The Monitor proper, which is brought into core between jobs. By means 
of control cards, the monitor routines are directed, among other things, to 
provide specified assignment of various I/O units, perform certain accounting 
functions and, most important, pass control to a participating processor to 
handle the next job. 

A. PROCESS! N3 A JOB 

The flow of control between the Basic Monitor and its participating processors 
is illustrated in the diagram below: 



Basic 
Monitor 




Other 
Supervisors 



Commercial 

Translator 

Supervisor 
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The sequence of operations within the framework is: 

1 . The Basic Monitor is called into core from the system tape. For the first 
job, this is done by the initial start procedure; for subsequent jobs, this 
is done by a routine in the Nucleus upon return from the processor which 
handled the previous jobs. 

2. The Monitor functions as directed by control cards. For example, the sequence 
(the exact format of the control cards will be specified later) 

$ATTACH A6 

$AS SYSPP1 

would result in an entry in the Unit Function table of the Nucleus, 
assigning physical unit A6 to the function of System Peripheral Punch 
tape until changed be some subsequent assignment. It should be emphasized 
that such an assignment is needed only to deviate from the normal one 
in use at a particular installation. 

Finally, upon recognition of 

$EXECUTE Processor- name 

(Processor- name = CT for Commercial Translator), the Basic Monitor 
will position the System Library tape to the named processor, read in 
the first record, and relinquish control to it. 

3. The processor involved examines the Unit Function and Unit Availability 
tables within the Nucleus; and from them determines which I/O units 

to use for the job. It then proceeds to process the current job. 

4. When the processor encounters the control card $IBSYS, the availability 
table is restored (if necessary) and control h turned back to the Basic Monitor. 

5. Steps 1 through 4 are repeated until the stack of jobs has been completely 
processed . 

The Unit Function and Availability Tables' 

In order to achieve the maximum flexibility in the use of I/O units attached to 

the machine, it is necessary to know the number and status of these units at all times. 

For this purpose, the nucleus contains an assembled table, the Unit Availability 

table, which describes the physical configuration of the machine, the number of 

channels, and the number and type of units on each channel . 

Programs operating within the system use this table to make their unit assignments, 
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and are responsible for maintaining it. !n addition, changes in configuration, such 
as removal of a tape transport for maintenance can be reflected in the table by means 
of Basic Monitor control cards. 

Besides the problem of general unit availability, programs operating within an automatic 
system are forced to use certain units to carry out specific functions. For example, 
the units to be used for Library tape, the input (job) tape, and the output (list) tape, 
cannot be chosen arbitrarily by a processor without doing violence to the notion of 
continuous operation. In order to provide a uniform way to reference this class of 
units, they have been assigned symbolic names indicative of their function. The 
particular unit currently assigned to a given function is found in the Unit Function 
table of the Nucleus. This table, together with the Unit Availability table, provides 
complete information on the current status of the I/O units available within the system. 

The symbolic function names are alwyas used on Basic Monitor control cards, in order 
to effect changes in status for specific unit assignment for this class of units. The 
functional units of the current system are: 



Symbolic Name 


Function 


SYSLB1 


System 


SYSLB2 


Library 


SYSLB3 


and 


SYSLB4 


Alternates 


SYSCRD 


System Card Reader 


SYSPRT 


System Printer 


SYSPCH 


System Punch 


SYSIN1 


System Input 


SYSIN2 


and Alternate 


SYSOU1 


System Output 


SYSOU2 


and Alternate 


SYSPP1 


System Peripheral Punch 


SYSPP2 


and Alternate 


SYSCK1 


System Checkpoint Tape 


SYSCK2 


and Alternate 


C\/C 1 IT 1 


^ 


J I JUI 1 


aysrem 


SYSUT2 


Utility 


SYSUT3 


Tapes 


cvci rrA 

•J 1 -J\Jl "T 





The participating processors of the system do not necessarily use all of these units; 

nor^ do they use the Utility tapes for the same functions. In order to take full ad'vantage 

of the tape handling facilities of the Basic Monitor, the operator should take the time 

to learn the unit requirements and usages for the various processors. The table of 

Section 06.02 provides such information of the CT Compiler, CT Loader, CT Maintenance, 

and Subroutine Files Updater. 
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B . BASIC MONITOR CONTROL CARDS 



The notation employed in discussing these control cards (and others in the Bulletin) 
is as follows; 

1 . Words in square brackets |_ J represent an option which may be included 
or omitted at the user's choice. 

2. Words in curly brackets [ j indicate that a choice is to be made from 
the contents. 

3. Upper case words, and all punctuation/ are to be used as is. 

4. Lower case words represent a substitution to be made. 

5 . A number over the first letter of a field indicates the initial card column 

of the field; a second number, if it appears, is the final column of the field. 

SPATE CARD 

The first card in any operating stack should be: 

1 16 

$DATE mmddyy 

which enters the date into a communication cell . Mmddyy would be written 
061561 for June 15, 1961. 

$ATTACH and $AS CARDS 

The two cards 

1 16 

$ATTACH Unit yij 

$AS Unit-function-name |,HJ 

are used together, in the order shown, to assign unit 'unit' to the functional 
unit 'unit-f unction-name'. This assignment remains in force until changed by 
another, or until the Basic Monitor is refreshed by a $RESTORE card (see below). 

'Unit' is written for tapes in the usual way, such as B9 or CI, while for card equipment, 

RDX for Card Reader, Channel X 

PRX for Printer, Channel X 

PUX for Card Punch, Channel X 

is used. The drive type is assumed to be IV unless II appears, and the density 
is assumed low unless H appears. 
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$RE LEASE CARD 



A card of the format 



1 16 

$RELEASE Unit-function-name 

releases the unit assigned to the functional unit 'unit-function-name 1 from system 
use, and makes it generally available. Thus, it is possible for object programs 
to make use of almost all units on the machine, if necessary. For obvious reasons, 
the system library tape should not be treated in this cavalier fashion. 

$EXECUTE CARD 

Recognition of the card 

1 16 

tcvcniTp d-~-.~..,.~..^.- — - 

causes the Basic Monitor to position the System Library tape to the named processor, 
read in the first record, and relinquish control to it. 

$IBSYS CARD 

A card of the form 

1 
$IBSYS 

returns System control to the Basic Monitor, and prepares it to interpret controi 
cards. It is the one control card which must be universally recognized by all 
participating processors in the system, in order to effect return of control to the 
Basic Monitor o 

$RESTORE CARD 

A card of the form 

1 
$RESTORE 

restores the Basic Monitor nucleus to its pristine state, as well as preparing the 
monitor to interpret control cards. The $RESTORE card is used primarily to 
restore the functional units to their normal (assembled) installation assignment. 
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$CARDS and $TAPE CARDS 



The Basic Monitor normally reads control cards from the system input unit, 
SYSIN1 . Upon recognition of the card 



1 
$CARDS 



however, the next control card will be read from the system card reader (SYSCRD) 
Return to control card reading from SYSINl is effected by the control card 



1 
$TAPE 



$UNITS CARD 



For operating convenience, the card 

1 
$.UN!TS 

causes an on-line print of the physical units currently assigned to the Functional 
units, 

$PAUSE CARD 



The card 



1 
$PAUSE 

provides a means for temporary halt of the machine, in order to allow some required 
operator intervention. 

$SWITCH CARD 

A card of the form 

1 16 . o 

$$WITCH Unit-function-name- 1 , Unit-function-name-2 

causes the units assigned to the functional units ' unit-function-name- T and 
'unit-function-name-2' to be interchanged. 
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Since the actual physical units involved need not be designated, this provides a 
particularly simple way of: 

1 . Switching the system input, output, or peripheral punch to its alternate unit; 

2. Providing continuity of unit assignment between programs. 

For example, the system tape updating program, (IBEDT) produces the updated system 
tape on SYSUT1. 

The card 

1 16 

$SWITCH SYSLB1, SYSUT1 

will then cause operation to continue using the updated system in place of the old. 
Note that density specifications are not transferred in the switching process. 

Tape Operation Cards 
A card of the form: 

1 16 

$ENDREEL 

$REWIND unit, function, name 

$REMOVE 

requests that the specified operation be performed upon the Functional Unit unit. function. name, 
The operations are: 

1 . 5ENDFILE Write an end of file on the tape assigned to the specified 

unit, function, name. 

2. $REWIND Rewind the tape assigned to the specified unit. function. name. 

3. $REMOVE Rewind anA linlnorl tk*» trirva nccinn,a<4 *« *U« <.»~.~.:tt — I 

■ ' — ■•— |~ — -«»igiiv« t\f iiiw <^EbincU 

unit .function .name . 
$DETACH Card 

And I/O unit which for any reason is disabled may be made unavailable for any use by 
a card of the form: 

1 16 

$DETACH unit .name 

The unit named remains unavailable until referenced by a SATTACH card or until the 
Nucleus is refreshed. 
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$STOP CARD 

A card of the form 

1 
$STOP 

will cause printing of the message "END OF JOBS, CANNOT PROCEED' and 
halt the machine. 

$* CARD 

AH Basic Monitor control cards are printed on-line in order -to keep the operator 
informed of the developments as they occur. Remarks or instructions can be 
included by means of the card 

1 3 

$* any-text 

which is printed when encountered, but has no other effect . 
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04.02 FUNCTION OF THE COMMERCIAL TRANSLATOR SUPERVISOR - CTM 

The primary function of CTM is to provide continuous automatic operation upon a 
sequence of (stacked) Commercial Translator Processor jobs. This supervisor gains 
control from the Basic Monitor as the result of a Basic Monitor Control card of the form: 

$EXECUTE CT 

CTM then controls the processing of the input on SYSIN until the Basic Monitor 
control card 

$IBSYS 

is encountered, at which time return is made to the Basic Monitor. 

The format of that part of SYSIN which is concerned with Commercial Translator 
Processing is as follows: 

$EXECUTE CT 

CTM Control Card for J OBI 

JOB1 

End-of-file 

CTM Control Card for JOB2 

JOB2 

End-of-file 

Input for JOB2 

End- of- file 



Etc 



$IBSYS 



*Note each Commercial Translator job must be followed by an end-of-file. w ee 05.03) 

In accomplishing automatic operation upon a stacked job input-tape, CTM performs 
the following functions: 

2. CTM provides communication, transfer, and return points for CTM subsystems. 

3. CTM provides system tape positioning and reading of CTM subsystems and 
IOCS packages. 

4. CTM provides for switching of the Basic Monitor Unit Function Table 
entries for SYSOU's, SYSIN's, and SYSPP's when any CTM subsystem 
causes reel switching of the corresponding table entries. 
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CTM recognizes 8 different control cards. All of these are in the format of the Basic 
Monitor Control cards (Operation begins in column 1). 



1. 
2. 
3. 
4. 
5. 
6. 
7. 
8. 



$1BSYS 

$ID 

$ENDREEL 

$CMPLE 

$LOAD 

$SUBUP 

$MAIN 

$PAUSE 



$IBSYS cards cause a return to the Basic Monitor. 

$ID cards cause a transfer to an accounting routine. 

$ENDREEL cards, when read by CTM, cause a reel switch involving SYSIN1 and SYSIN2. 

$ENDREEL cards must always be preceded by an associated end-of-file on SYSIN. 

The $ENDREEL may occur in the middle of a job (Example 1) or between jobs (Example 2). 

Example 1 

SYSIN 1 



SYSIN2 



CTM Control Card for J OBI 
J OBI 



End-of-file associated with $ENDREEL 
$ENDREEL 



Example 2 



SYSIN 1 



CTM Control Card for J OBI 



Rema i nder of J OB 1 

End-of-file associated with J OBI 
CTM Control Card for J OB2 
ETC. 



SYS1N2 

CTM Control Card for JOB2 
Etc. 



End-of-file 
$ENDREEL 
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Four of the remaining five control cards cause CTM to read the corresponding CTM 
subsystem from the system tape and transfer control to the subsystem. The $PAUSE 
control card., does not cause control to be turned over to a subsystem. !t prints the 
$PAUSE card on the on-line printer. This information should inform the operator of the 
reason for the pause. The message PRESS START TO CONTINUE is also printed. On 
the other four control cards CTM scans only the CTM subsystem which gets control from 
CTM. 

The Operations which direct the CT Supervisor are: 

Operation Function 



$CMPLE Perform compilation on following source deck. 

$LOAD Perform loading of following object deck. 

$SUBUP Perform Subroutine File updating. 

$MAIN Perform File Maintenance. 

$PAUSE Prints $ PA USE then pauses for operator intervention. 

Accounting 

A sample accounting routine is provided on the system tape. The sample accounting 
routine is not intended to work on 7090s (other than the one at WDPC - UCLA) . \f 
on installation chooses to insert a different accounting routine, it is recommended that 
the listing of the sample accounting routine be read. The listing contains the information 
necessary concerning communication and a description of how to replace the sample 
accounting routine on the system tape. 
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SECTION 05. 
SYSTEMS OPERATIONS 



INTRODUCTION 



The information in this section is intended to orient a machine operator with the 
physical operation of the Commercial Translator Processor. The information 
includes: 

1 . Peripheral Equipment Used 

2. Peripheral Equipment Assignment 

3. System Set- Up Procedure 

4. System Restart Procedure 

5. Output From System 

6. Program Flow and Operator Messages 

7. Object-Time Tape Assignment 

Further clarification of systems operation may be obtained by reading Section 04, 
SUPERVISORY SYSTEM; and Section 06, SYSTEMS MAINTENANCE. 
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05.01 PERIPHERAL EQUIPMENT USED 



The Commercial Translator Compiler uses the following peripheral components: 

1 . One on-line printer. 

2. A minimum of 5 tapes: 

a. One System tape (binary) . 

b. One listing output tape. 

c. Three utility (scratch) tapes. 

3. One tape or card reader for input. 

4. One tape or punch for punch output . 

The above represents the minimum machine configuration for compilation of a 
Commercial Translator source program. 

The Loading of a CT object program (excluding the tapes used by the Object program) 
requires: 

1 . One on-line printer. 

2. Possibly three tapes: 

a. One system tape (binary). 

b. Possibly two utility tapes (Used temporarily during the loading of 
large programs. Small programs will not require these two tapes) . 

3. One tape or card reader for input. 

File Maintenance on the symbolic system tapes(s) requires: 
1 . One on-line printer. 

3. One tape or card reader for input. 

4. Symbolic system tapes to be maintained and enough blank tapes to 
contain the new symbolic system. 

5. Possibly several blank tapes to contain output from this maintenance 
procedure which will be used as input to an assembly routine, also on 
the binary system tape. 
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05.02 PERIPHERAL EQUIPMENT ASSIGNMENT 

In describing the assignment of peripheral equipment, a symbolic notation is 
used. All I/O units have been given symbolic names. The names chosen for units 
by the CT Processor are all six characters in length and the first three characters 
are always SYS. In this manner the following names were chosen to represent 
I/O units that are referenced by the CT Processor. 

Name Usage by CT Processor 



SYSLB1 System Library Tape Number 1 

SYSLB2 System Library Tape Number 2 

SYSLB3 System Library Tape Number 3 

SYSLB4 System Library Tape Number 4 

SYSOU1 System Listing Output - First Tape Unit 

SYSOU2 System Listing Output - Second Tape Unit 

SYSIN1 System Input - First Unit, Card Reader or Tape 

SYSIN2 System Input - Second Unit, Card Reader or Tape 

SYSPP1 System Punch - First Unit, Punch or Tape 

SYSPP2 System Punch - Second Unit, Punch or Tape 

SYSUT1 System Utility Tape Number 1 

SYSUT2 System Utility Tape Number 2 

SYSUT3 System Utility Tape Number 3 

SYSUT4 System Utility Tape Number 4 

(See the table in Section 06.02 showing the references to these 
SYStem units by the various parts of the CT Processor) . 

The physical units assigned to each of the SYStem units will vary from installation 
to installation. It may well be, for instance, that a particular installation does not 
want to have two different units assigned for punching purposes. In this case, both 
SYSPP1 and SYSPP2 would be assigned the same physical unit. 

The assignment of physical units to SYStem units is made through a table which is 
part of the CT Processor which remains in core during all CT Processing. 

Temporary changes to the table may be made through the use of Basic Monitor 
Control Cards. These control cards precede a particular job or group of jobs, 
for which a 'non-standard' SYStem units assignment is desired. This method 
of changing the table is described in Section 04.01 . 
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05.03 SYSTEM SET-UP PROCEDURE 



A. Preparing the system input ~ SYSIN1 and SYSIN2. 

Since Subroutine updating and File Maintenance will be performed rarely, 
the input to the Commercial Translator Processor will usually consist of one or 
more of the following job types: 

1. Compile 

2. Load and run 

3. Compile, load, and run. 

Each job on SYSIN (1 or 2) must be preceded by a control card which specifies 
the action to be performed on the following deck. (For format of job control 
cards see Section 04.02). Also, each job must be separated from other jobs by 
an end-of-file. The end-of-fiJe separation should be obtained by placing an 
end-of-file card in back of each job deck. This card when read by an off-line 
/14 card-to-tape converter causes an end-of-file to be written on the tape. The 
same card is recognized as an end-of-file by the CT Processor whenever the input 
is read through the on-line card reader. This end-of-file card then, should be 
thought of as an integral part of every job deck. The format of the end-of-file 
card is: 

Columns Punches in rows 



1 and 2 8 and 7 

3 and 4 7, 4, 1, and 12 

If there are input cards associated with a particular object program (i.e. if 

the object program references SYSIN), the input cards must be placed in a separate 

file immediately following the job to be run. 

The end-of-file mark used with a 1401 card to tape set-up may have a different 
punch combination. Refer to the utility program write up when this set-up is 
being used. 
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The group of stacked Commercial Translator jobs must be preceded and followed 
by Basic Monitor Control Cards. (See Section 04.01 for format and function 
of Basic Monitor Control Cards). An example of the format of stacked input to 
be run on-line might be: 



Cards 



$DATE 


mmddyy 


$ATTACH 


RDA 


$AS 


SYSIN1 


$EXECUTE 


a 


$ID 


JOB1 


$CMPLE 






BCD 




Source 




Program 




Cards 


*FINISH 


End-of-file- 


-card 


$ID 


JOB2 


$LOAD 






Object 




Deck 


End-of-file 


card 




Object-time 




Input cards 


End— of — fi I e 


card 


$IBSYS 




$ENDFILE 


SYSOU1 


$REMOVE 


SYSOU1 


$ENDFILE 


SYSPP1 


$REMOVE 


SYSPP1 


$PAUSE 




mally, only two Basic Monitc 


$DATE 


mmddyy 


$EXECUTE 


CT 



Explanation 



Provides current date for system use 
Temporarily resets standard SYSIN assignment 

Control turned over to CT Processor 
Accounting card is optional 



This card precedes end-of-file on COMPILE jobs. 
Accounting card is optional 



Return control to Basic Monitor 
Write end-of-file on list tape 
Rewind and unload list tape 
Write end-of-file on punch tape 
Rewind and unload punch tape 
Temporary Halt 
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B. Starting Procedure 



After a job run is started, no action is required on the part of the operator except 
to follow specific instructions displayed on the printer. To start initially, the 
following procedure is used; 

1 . Mount the System Library SYSLB1 on some unit. It should be rewound 
and set for high density. 

2. Mount blank tapes on SYSUT1, SYSUT2, SYSUT3. Ready SYSIN, 
SYSOU, and SYSPP. (It is not necessary to set the density on any of 
these units on 7090's. They will set by the CT Processor). 

3. Clear the entry keys and set sense switch 1 . This switch determines 
where the Basic Monitor expects to find its first control card. If up. 

the system input units, (SYSIN1) is used; if down, the system card reader, 
(SYSCRD) is used. 

4. If SYSLB1 is on unit Al, depress the load tape button. If it is on any 
other unit, load tape on that unit must be simulated by some self-loading 
program. Normal processing should begin. 

5. If it does not, check all units for ready status, and the unit on the 
System Library for correct density setting. 
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05.04 SYSTEM RESTART PROCEDURE 



If for any reason the computer should loop or come to a complete stop during processing 
of a CT job, the following action should be taken: 

1 . Enter the instruction STR (500000000000) in the Entry Keys 

2. Set to manual and press the Enter Instruction button 

3. Set to automatic and press the Start button 

The above procedure will serve to get to the next job whenever the program in core 
which accomplishes this function has not been destroyed. When the above procedure 
results in another computer loop or stop, the action taken should be similar to the 
initial starting procedure: 

1. Rewind SYSLB1 (Al) 

2. Place sense switch 1 down 

3. Place a 'RESTART' deck in the on-line card reader of the form: 

$DATE mmddyy 

$EXECUTE CT 

If there were Basic Monitor Control Cards causing a temporary SYStem 
units change as part of the stacked jobs, the same cards should be 
placed between the $DATE and $EXECUTE cards to effect the same 
SYStem configuration as was in operation when the program malfunctioned, 

4. Clear and depress the Load Tape button. 

The above procedure will cause the CT Processor to process the next job on SYSIN. 
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05.05 OUTPUT FROM SYSTEM 
A. Compiler 

The CT Compiler output consists of: 



1 . A list of the source program and error messages concerning the source 
program is written on the SYSOU tape* In addition, the programmer 
may obtain on SYSOU a listing of the object program generated by 
the Compiler. SYSOU m ust be a tape unit . Attaching the on-line 
printer as SYSOU will_no±.work. 

2. Punch output is placed on SYS PP. SYSPP may be a tape for off-line 
punching or the on-line punch. 

3. Operator messages are written on-line printer. End-of-file marks are 
put on SYSOU and SYSPP as part of the reel switching operation and 
through the use of Basic Monitor Control Cards. The separation of 
decks from off-line punching must be accomplished by means of the 
deck identification punched in columns 73-77, and a card sequence 
number punched in columns 78-80. The deck identification comes 
from columns 8 through 12 of the $CMPLE card. 

B . Loader 

The CT Loader during the loading operation may write on SYSOU. No other 
output will occur except operator messages on the on-line printer. 

C. Subroutine Files Updater 

The Subroutine Files Updater produces new subroutine files on SYSUT2 and may 
produce a map of these subroutine files on SYSOU, and/or messages on the on- 
line printer. 

D. File Maintenance 

The CT File Maintenance produces a new BCD system master tape on SYSLB4, 
an input tape for the assembler on SYSUT4 and SYSUT3, and writes error 
messages on the on-line printer. 

*NOTE The output written on SYSOU from the Compiler and Loader is grouped 5 lines 
per physical record with record marks after each of the first 4 lines. If a 720 
printer is used to list the tape, the group switch must be set to 5. 
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05 .06 PROGRAM FLOW AND OPERATOR MESSAGES 



The field test version of the CT Processor will write on-line messages concerning the 
progress of compilation, loading, and execution, of a CT program, through the ^arious 
phases. In addition, tape switching and redundancy information may be issued by IOCS. 

A. Compiler , 

The ability to interpret the significance of various conditions is helpful to the 
operator in determining if a compilation is progressing satisfactorily. 
For this reason, a brief resume of compiler action is as follows: 

1 . Phase 1 translates from the external statements to a condensed internal form. 

a. The first pass scans for data and procedure names, entering them 
and their descriptions into a dictionary. 

b. The second pass completes conversion of the text, determining 
the exact meaning of qualified names, and builds other tables 
of information necessary for the generation of instructions. 

The letters CTC are printed on-line when this phase is entered. 

2. Phase 2 consists of the generation of instructions, and the initial pass of 
their assembly. The letters CTD are printed on-line when this phase 

is entered. 

3. Phase 3 completes the assembly process, defining the relative locations 
of instructions and data, the listing of error messages, and the punching 
of the object deck. The letters CTE are printed on-line when this phase 
is entered. 

Finally the word DONE is printed on-line when control is returned to CTM from • 
the Compiler. 

Unless a catastrophic error occurs (e.g., the omission of a division header), 
compilation will be completed regardless of the number of errors encountered. 
Jf a catastrophic error occurs, a standard end-of-job message will be printed and 
control will be passed to the CTM supervisor. 
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The Compiler uses the functional units SYSIN, SYSOU, SYSPP, SYSUT1, SYSUT2, and 
SYSUT3. It is itself located on SYSLBI; and when the COPY or LIBRARY options are available, 
st ws.l use SYSLB2. Tape movement during compilation can be followed by becoming familiar 
with the table below. 



Usage 



Compilation 


Unit 




Phase 


Function 
SYSLBI 


Action 


CTC- Pass 1 


Read 




SYSIN 


Read 




SYSUT1 


Write 




SYSUT3 


Write* 




SYSOU 


Write 




SYSUT1 


Rewind 


CTC-Pass 2 


SYSUT1 


Read 




SYSUT2 


Write 




SYSUT3 


Write* 




SYSUT2 


Rewind 


CTD 


SYSLBI 


Read 




SYSUT2 


Read 




SYSUT3 


Write* 


CTE 


SYSLBI 


Read 




SYSUT2 


Read 




SYSUT3 


Read 




SYSPP) 


Write 




SYSOU 


Write 




SYSUT1 


Write =* 



Input CTC 

Input of source text 

Partial Internal text 

Internal form of error messages 

Partial List text 

End of Pass 1 

Input Partial text 

Output Rnai internal text and 

External Dictionary 

Internal form of error messages and 

symbolic instructions 

End of Pass 2 

Input CTD 

Internal text 

Internal form of error messages and 

symbolic instructions 

Input CTE 

External dictionary 

internal form of error messages and 

symbolic instructions 

Punch output 

Completion of List output 

Tape for immediate LCA D 



*SYSUT3 is an overflow tape, and may not be called into use for a very short program, 



i QVCI IT 1 '. e „«* ...-:** .._l ? !• . . . .._.._... 

. ~. „^, . .„ .,«, ,».,,, cu uiiicsa un immeaiare run is requesTea on the CMPLE card, 
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B . Loader 

The successful loading of an object program will be accompanied by the following 
messages: 

1 . A list of the object-time tape assignments with appropriate mounting 
instructions will be printed on-line. 

2 Just prior to control being turned over to the object program, a message 
will be printed and a computer stop will occur to insure that the necessary 
object-time tapes have been mounted . The operator should press the 
Start button when the mounting instructions have been carried out. 
(This procedure will undoubtedly change, but the field test version of 
the OT Processor will operate in this manner). 

3. A message should now print saying that control has been turned over to 
the object program. 

In addition, l/O messages concerning tape switching and redundancy may be 
printed on the on-line printer. 

The CT Loader references the units SYSLB1, SYSIN's, SYSOU's, SYSUTl, SYSUT2, 
and SYSUT3. SYSUTl is needed only if the run is of the type 'Compile and Load I , 
in which case SYSUTl contains the job to be loaded. Tape movement during loading 
consists of the following: 

Action Description 



Loading Phase 


Unit Function 
SYSIN1 or 


Action 


First 




pass 


SYSUTl 


Read 


over 


SYSLB1 


Read 


text 


SYSUT2 


Write 




SYSUT3 


Write 




SYSUT2 


Rewind 


Second pass 






over text 


SYSUT2 


Read 


which referred 


SYSUT3 


Write 


to locations 


SYSUT2 


Rewind 


undefinable 


SYSUT3 


Rewind 


during first 






pass 






Read in object 


SYSUT3 


Read 


instructions 


SYSUT3 


Rewind 


and transfer 






to program 







Source of input 

Source of Loader and object subroutines 
Write text needing further processing 
Write text needing no further processing 



Read text needing further processing 
Write text defined in this pass 



Read final program into core 



709/7090 Commercial Translator 
2(1/62) 05.06.04 

A large section of core is reserved during the first two passes for text information 
(i ,e . program instructions) . it is only when this section cannot contain aii the 
text information, that overflow text is written on SYSUT2 and SYSUT3. Also 
it is more unlikely that SYSUT2 will be written upon than SYSUT3 For short' 
programs, therefore, the only tape movement may occur on SYSLB1, SYSOU and 
the input tape (SYSIN or SYSUT1); and the loading process will appear to be a 
single pass operation. 

C . Object-program execution 

During the execution of an object-program, four different types of messages may 
appear on the on-line printer. 

1 • IOCS tape switching and redundancy information. 

2. Items which are printed as the result of a source language 'DISPLAY' 
statement. The programmer may use this device to follow the flow of 
the object- program . 

3. 'STOP' statements. 

The STOP messages may be of two forms: 

a- STOP nnnnnn where nnnnnn is any number 6 digits or less. The 
computer will stop, and hitting the START key will cause the 
object program to continue in execution. (It is hoped that the 
programmer uses this instruction sparingly, if at all) . 

b. STOP RUN 

This message means that object-time processing of the job is 
completed and control has returned to the CTM supervisor. 

The STOP messages will be accompanied by the source language statement 

number at which the STOP occurred, i.e. AT xxxxx,yy STOP nnnnnn 

where xxxxx f yy is the statement number. 

4. Object program error messages, usually concerning I/O errors. 

Object-time processing will terminate and control will revert back to the 
CT Monitor. 

The Field Test version of the CT Processor will use the on-line printer for the 
DISPLAY, STOP statements, and object program error messages . (not SYSOU) 

D. Subroutine Files Updater 

The messages written on the on-line printer will be of two types: 

1 . Messages concerning any I/O redundancy and tape switching information. 

2. A message signaling the successful or unsuccesful completion of the 
updating process. 
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The CT Subroutine Files Updater references the CT system tape, SYSUT2 and 
SYSUT3 (utility). The CT system tape is the input tape and SYSUT2 is the output 
tape. 

E. File Maintenance 

Messages written on the on-line printer will be of two types: 

1 . If errors occur during the File Maintenance procedure, a message of the 
form: 

(MESSAGE) LAST CHANGE AT Namennnn PRESS START TO CONTINUE 

is printed, and a pause occurs to allow operator action. Each 
(MESSAGE) which may print is described under Section 06.04. 

2. At the end of the maintenance procedure a list of all files on the new 
BCD master tape in order of appearance is printed on-line. 

The File Maintenance routine contains references to SYSLB3, SYSLB4, SYSIN, 
SYSUT3 and SYSUT4. Tape movement consists of reading the two input tapes 
SYSLB3 and SYSIN and writing the two (or three) output tapes SYSLB4, SYSUT4, and 
SYSUT3. At conclusion both SYSLB3 and SYSLB4 will rewind and unload, and 
SYSUT 'swill rewind. 
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05.07 OBJECT-TIME TAPE ASSIGNMENT 



The assignment of units by the Loader for use by the object program depends on three 
variables: 

1 . The channel and unit arrangement at each installation. 

2. The configuration of the SYStem units table at the time of the object-time 
assignment. 

3. The object-programs' requested assignment. 

The procedure by which the Loader assigns specific units to the various object-time 
files based upon the above variables is discussed in Section 06.02. Without prior 
knowledge of how the assignment is made for each job, the machine operator will 
have to wait for the tape mounting instructions given by the Loader before he can 
mount the tapes to be used by the object program . However, prior knowledge may 
be obtained by one of the following: 

1 . Repeated running of the object program without changing any of the 
above variables. 

2. Understanding the method by which the Loader makes unit assignments. 
The method is simple and can be easily learned. 

3. If a 1401 is available, a program can be written for the 1401 that will 
give the operator tape mounting and running instructions for the batch 
of jobs being card-to-taped on SYSIN. 
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SECTION 06 
SYSTEMS MAINTENANCE 



INTRODUCTION 

The information in this section is intended for the person or 
persons at each installation responsible for installing and 
maintaining the Commercial Translator Processing System. 
This section contains information concerning: 

1 . Mimimum Machine Requirements 

2. System Units and Object-time Tape Assignment 

3. Updating Subroutine Files of System Tape 

4. Symbolic Tape Maintenance 

It is assumed in this section, that the reader is familiar with 
the contents of Section 04 and Section 05 . 
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06.01 MINIMUM MACHINE REQUIREMENTS 

The minimum machine requirements for 709/7090 Commercial Translator 
processing are: 

1 . 32, 768 words of core storage . 

2. Data-Channel-Trap 

3. One on-line printer (Channel A) 

4. Five tape units 

A. One Binary System tape 

B. One Listing Output tape 

C. Three utility tapes 

5. Two additional units 

A* One on-line card punch or one more tape unit 
B. One on-line card reader or one more tape unit 
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06.02 SYSTEM UNITS AND OBJECT-TIME TAPE ASSIGNMENT 

A . System Units 

The following table lists a set of possible installation 'standard' unit assignments 
for the SYStem units table and shows the usage of these units by the CT Compiler, 
CT Loader, CT Subroutine Files Updater, and CT Maintenance. 



Symbolic 


Possi 


Die Confiquration Usage By 


Designation 


4 
Channel 


3 
Channel 


2 
Channel 


Compiler 


Loader 


Sbr. Files 
Updater 


Maintenance 


SYSLB1 


Al 


Al 


Al 


System 


System 


System 
Tape 


System 
Tape 


SYSLB2 


None oi 
A3 


None or 
A3 


None or 
A6 


Source 
Language 

Library 








SYSLB3 


None or 
A4 


None or 
A5 


None or 
A7 








Old BCD 
Master 


SYSLB4 


None or 
B4 


None or 
B4 


None or 
B7 








New BCD 
Master 


SYSCRD 


RDA 


RDA 


RDA 










SYSPRT 


PRA 


PRA 


PRA 










SYSPCH 


PUA 


PUA 


PUA 










SYSOU1 


Bl 


Bl 


Bl 


First List 
Output 


First List 
Output 


First List 
Output 




SYSOU2 


Bl or 


Bl or 


Bl or 


Second 
List 
Output 


Second 
List 
Output 


Second 
List 
Output 




SYSIN1 


CI or 
RDA 


CI or 
RDA 


A2or 
RDA 


First 
System 
Input 


First 
System 
Input 


First 
System 
Input 




SYSIN2 


CI or 
RDA or 

C3 


CI or 
RDA or 

C3 


A2or 
RDA or 
A5 


Second 

System 

Input 


Second 
System 
Input 


Second 
System 
Input 




SYSPP1 


PUA or 
Dl 


PUA or 
A4 


PUA or 


First 
Punch 








SYSPP2 


PUA or 
Dl or 
D3 


PUA or 

A4or 

A6 


PUA or 

B2or 

B6 


Second 
Punch 








SYSCK1 


None 


None 


None 










SYSCK2 


None 


None 


None 










SYSUT1 


A2 


A2 


A3 


Utility Input 






Compile and Loac 



table continued on next page 



System Units Table Continued. 



709/7090 Commercial Translator 
2(1/62) 06.02.02 



Symbolic 
Designation 


Possible Configuration 


Usage By 


4 3 2 


Compiler 


Lpader 


Sbr. Files 


Maintenance 




Channel 


Channel 


Channel 






Updater 




SYSUT2 


B2 


B2 


B3 


Utility 


Utility 


NewCT 
Sbr. Files 




SYSUT3 


C2 


C2 


A4 


Utility 


Utility 


Utility 


Second Out- 
put for 
Assembly 


SYSUT4 


None or 
D2 


None or 
C4 


None or 
B4 






First Out- 
put for 
J Assembly j 



The usage of the words 'first' and 'second' denotes a multi-reel file with alternating units on 
which tape switching is performed automatically by that part of the CT Processor which uses the 
file. If a single physical tape unit is assigned to such files, the operator must perform the 
necessary mounting of a new tape whenever a reel switch occurs (the first tape will rewind and 
unload and the unit will be selected again as the second or alternating reel). 
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The distributed system tape has the following assignment assembled into the system units 
table. 



SYMBOLIC UNIT 

SYSLB1 

SYSLB2 

SYSLB3 

SYSLB4 

SYSCRD 

SYSPRT 

SYSPCH 

SYSOU1 

SYSOU2 

SYSIN1 

SYSIN2 

SYSPP1 

SYSPP2 

SYSCK1 

SYSCK2 

SYSUT1 

SYSUT2 

SYSUT3 

SYSUT4 



PHYSICAL ASSIGNMENT 

Al 

(No unit provided) 

(No unit provided) 

(No unit provided) 

Card Reader Channel A 

Printer Channel A 

Punch Channel A 

Bl 

B1 

A2 

A2 

B2 

B2 

(No unit provided) 

(No unit provided) 

A3 

B3 

A4 

B4 (Not used by CT SYSTEM) 



The above assignment will suffice for Compiling and Loading Commercial Translator programs. 
The assignment was made to leave as many tapes free for object-time program tape assignment 
as possible. If units are assigned to SYSLB's the units assigned are not available for object- 
time assignment. Since the above configuration does not include unit assignments for SYSLB2, 
SYSLB4, SYSCK1, and SYSCK2, these SYStem units will be assigned by Basic Monitor 
Control Cards whenever corrections are sent to the installation involving these SYStem units. 
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Object-Time Tape Assignment 



The assignment of physical units to the various flies in the object program is 
performed by the Loader by processing the symbolic 'unit' columns (18-21 and 
22-25) in the FILE cards which precede the binary object deck. For referencing 
purposes, the following definition of permissible symbolic units which may appear 
on the FILE cards is repeated. In the definition of permissible symbolic units 
requested by the programmer, the notation is as follows: 

X is a true channel request and may be A, B, C, D, E, F, G, H . 

Y is a symbolic channel request and may be S, T, U, V, W, X, Y, Z. 

k is a relative unit request and may be 1, 2, 3, 4, 5, 6, 7, 8, 9, 0. 

M is a true tape model request and may be il or IV 

Tne permitted unit requests are: 

a. blank 

b. Model only M 

c . True channel x 

d. Symbolic channel y 

e. True channel, Model XM 

f . True channel, Relative unit X(k) 

g. Symbolic channel, Model YM 

h. Symbolic channel, Relative unit YK or Y(k) 

i. Symbolic channel, Relative unit, Model YKM 

j . For secondary unit assignment after all 

other requests have been fulfilled * 

In addition, the programmer may request the following SYStem units and card 
equipment. 

System input units 
System output units 
System punch units 
System Utility tapes 
Card reader, channel X 
Printer, cnannel X 
PUX Punch, channel X 



IN, 


INI, 


IN2 




Oli, 


OU i 


, OU2 




PP, 


PP1, 


PP2 




UT1, 


- UT2 


, UT3, 


UT4 










DDV 

i l\/\ 
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It should be noted that no true unit assignments may be requested. This follows 
from the fact that any given unit may be performing a SYStem function, and 
therefore not available for assignment as an object-time unit. However, the 
programmer is allowed to request relative units on channels. In explaining 
the meaning of relative units, the following example is given. 

In sorting problems, a programmer may use many tapes, alternately reading 
several and then writing several. From the logical flow the program, the 
programmer may decide that 3 files (for example) should logically be on one 
channel and 3 other files should logically be on another channel for best 
operating efficiency. The programmer might then use the symbolic unit 
designations A(l), A(2), and A(3) to refer to three of the files and B(l), 
B(2), and B(3), to refer to the other three files. The numbers (1), (2), and 
(3), are the programmers' indicies or relative unit assignment. The loader 
tape-assignment-routine will try to find three available units on channels 
A and B. Available,used in this sense, means units attached to the computer 
and not referenced in the SYStem units table (i .e. not used by the system) . 
Using~tne distributed version of the SYStem units table as an example, the 
following assignment would be made: 



SYMBOLIC AS! 


5IGNMENT MADE BY LOADER 


A(l) 


A5 


A(2) 


A6 


A(3) 


A7 


B(D 


B4 


B(2) 


B5 


B(3) 


B6 



(This assumes there are at least 7 units attached on Channel A, and at least 
6 units attached on Channel B) . 

The logical process by which symbolic unit requests are converted to physical 
unit assignments in the order of priority is: 

1 . All card units, SYStem units, and true-channel relative units are assigned 
first. The symbolic units OU, OU1, OU2, IN, INI, IN2, PP, PP1, 
and PP2 when assigned to SYStem units take on the characteristics of 
the SYStem units. They are considered multi-reel alternating units 
with no labels, and any programmer rewind options are ignored. In 
this respect, for example, OU, OU1, OU2, are synonomous. The 
symbolic units UT1, UT2, UT3 should use the 'DEFER' mounting option 
as SYSUT1, SYSUT2, SYSUT3 are used by the loader. (Mounting instructions 
occur at object-time OPEN) . 
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2. True channel, no specified units are assigned next. 

If, during steps 1 ana 2, there are insufficient units on the requested 
channels, a message prints to the effect that object-time tape assignment 
could not be completed because there were not enough units on the 
specified channels. 

3. Symbolic channel assignment is now made on the basis of those symbolic 
channels with the largest requirement being handled first. Starting 
with the highest true channel, the channels are processed to see if 

they will handle the symbolic channel requirements. When a true channel 
is found that contains sufficient available units to handle the symbolic 
channel, that true channel is chosen. If there is no true channel which 
will handle the symbolic channel requirements, a true channel is chosen 
to assign as many of the symbolic units to the channel as possible. The 
remaining symbolic units are now assigned by repeating the same process 
(i.e. finding the symbolic channel with the areatest r*»nuiriam*»nt *¥<- \ 

4. Model only specifications are now processed. Units are chosen starting 
at the highest channel number, first available unit. 

5. Symbolic units with no specification in the UNIT1 columns on the file 
card are now assigned . 

If during steps 3, 4, or 5 there are insufficient tapes available for assignment 
a message prints saying there are not enough units on the system, and 
tape assignment could not be completed. 

6. * Secondary units are assigned last and on the same channel as the first 
unit where this is possible. 

When the UNIT2 columns on the file card are blank the unit assigned is always 
the same as the unit assigned to UNIT! . 
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06.03 Updating Subroutine Files of System Tape 

The Subroutine Files will be updated by the SUBUP routine. The input tape is the 
tape from which SUBUP is called. The output tape is SYSUT2. SYS UT3 is used 
as a scratch tape for the updating of the subroutine files. Control will be given to 
the routine which updates the subroutine files when CTM recognizes a card fcf the 
form: 

1 16 

$subup [map] Q. n nJ 

This card is interpreted as follows: 

TmaFI The MAP option produces on SYSOU1 a list containing pertinent facts 

*- — ' concerning the Commercial Translator object- time subroutines. 

r~nn~| This option causes a test to be made to insure that the proper number 

of processing cards were read. This is a numeric field containing the 
count of the number of update cards. This count does not include the 
$SUBUP card. The maximum number of cards which can be handled is 
32,767. If the option is not used no check is made. 

The Commercial Translator object-time subroutines consist of two files; the first 
containing a dictionary, and the second the subroutines themselves. The records in 
these files have the general form: 

IORXN K 

BCI l,Name 

Record 

AM records have the same maximum blocksize. The X in the l/O word is P fc* all 
records of the same subroutine (i.e. same name) except the last, for which X - T. 
K is the number of the subroutine starting with zero for the dictionary, which has 
the name 'SRDICT'. 
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Control Cards 



The functions available in the maintenance process are described under the various 
control cards. 

♦INSERT Card 



The format of this card is 

7 16 

*INSERT SR ( subroutine. name ) /type 

A subroutine composed of the cards following the *INSERT control card is output onto 
SYSUT2. 

♦REPLACE Card 



/-» \»mu ui IMG IWIIII 



7 16 

♦REPLACE SR ( subroutine. name ) ["^type"] 

replaces the entire subroutine names "subroutine. name 1 on the old system tape by a new 
subroutine formed entirely from the alteration cards following the *REPLACE card. 

♦INSERT and ♦REPLACE permit a second variable field parameter, 'Type', which can have 
the following values: 

'SECONDARY' This is to be treated as a Secondary subroutine during loading. This 

value is assumed if the field is left blank. 

'PRIMARY' This is to be treated as a Primary subroutine during loading. 

Octal Location This is to be treated as a Fixed subroutine and will begin at the 

given fixed octal location when loaded. 

Secondary, Primary, and Fixed, subroutines are discussed in Section 03„ 



If the card 



7 16 

♦REMOVE SR (subroutine, name ) 

is used, the subroutine named is omitted in the output on SYSUT2. 
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* AFTER Card 

The card 

7 16 

*AFTER SR ( subroutine. name ) 

suspends control card reading until the record named has been copied on the new system tape. 

*REMARK Card 

A card of the form 

7 16 

*REMARK SR ( subroutine. name ) 

causes the characters in columns 16-72 of this card to be printed on-line at the time the card 
is encountered . 

The opening parenthesis, subroutine. name, and closing parenthesis must immediately follow 
the 'SR' in all of the control cards described above. 
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Subroutine control cards must occur in the correct position in the modification deck and in 
the proper order. The subroutine deck which follows an *INSERT or *REPLACE control card 
must be a complete CT Relative binary deck, preceded by a *CTEXT card followed by a 
*CTENDcard. 7 

A scratch tape may be required for subroutine modification and SYSUT3 is used for this purpose. 
(Not currently required). 

When the last subroutine modification has been processed, the library tape is positioned beyond 
the file mark which terminates the old subroutine file. 

Updating Procedure 

The following procedure is used in preparing a new system tape: 

1 . Prepare the input as described. A typical sequence might be: 

i 7 16 



$DATE mmddyy any number of unit reassignments 

$ATTACH unit if and as needed by installation 

$AS function. name 

$EXECUTE a 
$SUBUP 

subroutine decks 

This updates the subroutine files and puts them on SYSUT2. They are placed on the 
new system tape by the following sequence: 

$IBSYS 
$IBEDT 

*EDIT options 

*AFTER LOAD 

*DUP SYSUT2,SYSUT1,2 

end-of-fiie card 
$IBSYS 

The eonfrol cards must be so ordered that their record name references are in the same sequence 
as the records on the tape. If a record is referenced out bf sequence in the update deck, a 
message will be printed, and its effect will be nullified. 

2. Load and set tape units in accordance with the standart (or altered) settings of the 
SYStem units table . 

3 « Follow Basic Monitor operating Instructions. Refer to the manual, IBM 7090 
Operating Systems: Basic Monitor (IBSYS) Form J 28-8086-0, 
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A map of the system tape may be obtained on SYSOU by specifying MAP on the *EDIT 
card to IBEDT. CT may be located any place on any of the system library tapes. The 
output map of CT is as follows: 

File Name Purpose 



n 


CTM 


n+ 1 


BASIC 


n + 2 


CTB 




CTC 




CTD 




CTE 


n + 3 


IOCS 


n + 4 


LOAD 


n + 5 


SRDICT 


n + 6 


CTSUBT 


n+7 


IOBB 




IOBM 




NOBS 


n + 8 


SUBUP 


n + 9 


MAIN 



Comm. Trans. Supvsr; 

Basic IOCS 

CT Compiler Service 

CT Compiler, Phase 1 

CT Compiler, Phase 2 

CT Compiler, Phase 3 

Label IOCS 

Loader 

CT Subr. Dictionary 

CT Subroutine Texts 

Basic IOCS Overlay 

Minimum IOCS Overlay 

No IOCS Overlay 

Subroutine Updater 

Symbolic Maintenance 
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06.04 SYMBOLIC TAPE MAINTENANCE 



The Symbolic Tape Maintenance program will update a master tape of card fiies, 
optionally producing a new master tape, and selectively producing a second output 
tape intended for assembly or job input. Information, as directed, is taken from the 
master tape (SYSLB3) or from control and alteration cards on the input tape (SYSIN1). 
If a new master is created, it is written on (SYSLB4); while the second output is written 
on SYSUT4, and , as an alternate unit, SYSUT3. SYSLB3, and SYSLB4 must be 
single-reel files. No provision is made for end-of-reel tape switching on SYSLB3. 

Control is given to the Symbolic Maintenance program when CTM recognizes a 
control card of the form: 

$MAIN |M] tL B l £,C] 

The interpretation applied to the variable field of this card is: 

|_MJ Create a new master tape. 

L^J The second output tape is to be blocked 10 records per block. 



[<0 



This specifies that the second output tape is going to serve as input 
to the Commercial Translator Compiler. The B option should not be 
used when the tape is intended for input to the Compiler. 



lape formats 



Each file on the master tape consists of 14 word card records, the first of which may 
have either of the following formats: 



1 

* 


7 

*FILE 

8 


15 
Name 


Name 


*FILE 





or 



Only the latter form will be written on the new master tape where 'Name' is a 
four character (or less) identifier for the file. The identifier is used to reference 

n niuon fi\a nrtri Cmrmr «**«»t ~*C 4.L— -__ __I ,. _j.4_. . I. I . .1 ■ i- .1 

- «j-'~ -/ —••« ■win.* [aim ui i ii<= aci|uciiv,e nuniucri urfucnea ro rne car as or rne 

file. 

The sequence numbers are created by the routines when this file is first placed on the 
master tape. Their form is: 

Namennn 

and they occupy positions corresponding to columns 73-80 of the card. Individual 
cards of a file are referenced by these numbers, in order to indicate the nature and 
extent of any changes which are to be made. Enumeration begins with 1, on the first 
card following the *FILE card, and is in unbroken sequence. Since there are only four 
digits, numbers from 10,000 to 10,999 use + as the first digit, numbers from 11,000 
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to 1 1,999 use A as the first digit, numbers from 12,000 to 12,999 use B as the first 
digit, etc. A single file is limited to 99,999 cards. When a file is modified, new 
sequence numbers are automatically created reflecting the re-ordering necessary to 
account for any insertion and deletions. The *FILE card is never written on the 
second output tape. 

The last file of a master tape is exceptional . It must consist of a single card which 
may have either of the following formats: 

1 7 

* *END or 

8 

*END 

which serves to delimit the extent of the tape. Only the latter form will be written 
on the new master. 

An end-of-file mark must follow the last card of every file on the master tape. 

A master rape created by the program is alwyas blocked 10 records per block, and 
may be listed on the 720A with the group switch set in the "10" position. If the 
blocking option B is chosen for the second output tape, however, it cannot be listed 
on the 720A. The input tapes, both master and alteration, will process correctly 
with any blocking factor of 10 or less. 

If the C option is used on the $MAIN card, the second output tape, SYSUT4, if of 
the following form: 

1 . The first record on SYSUT4 is $EXECUTE CT 

2. Three additional records are placed after the last end-of-file on the 
SYSUT4 tape: 

$IBSYS 

$*MAIN JOB STACK COMPLETED 

$SW1TCH SYSIN1, SYSUT4 
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The first record of each file on SYSUT4 after the $EXECUTE card should be a CTM control 
card (usually $CMPLE card)* By this method, it is possible to maintain source programs 
on BCD master tapes; and, as desired, change, compile, and execute particular programs in 
one operation. The form of SYSIN for this type of use of the Commercial Translator 
Processor might be: 



$DATE 


mmddyy 


$ATTACH 


D2 


$AS 


SYSUT4 


$EXECUTE 


CT 


*MAIN 


C 


*FILE 


A 


changes 




End-of-file card 


$IBSYS 




$SW!TCH 


SYS!N!,SYSUT4 


$PAUSE 




Control Cards 





Current Date 

(Low Density) 

Go to Maintenance Routine 

Changes to source program on master tape 



Return to Basic Monitor 

Cw,l4-i~U :,»».. 4- ..n!** ~_J ™ - iL_ 

«/»»••«- f«i uiiiij unu |^iuv<cn me auuice pruurum 



The control cards used to direct the Symbolic Maintenance program fall into two categories. 

1 . Cards used to initiate action on a given file are called major control 
cards. Their format follows this general pattern: 

1 r 8 i - 16 

Name /operation] option] 

Changes to the file 'Name' can be made only if it is referenced by one 
of these cards. If not, the file is copied, exactly as it stands, onto the 
new master tape: or, if there is no new master, it is simply ignored. 

2. Modifications within a file are described by the minor control cards. 
The format pattern of these cards is: 

1 8 16 

Mom*» -J nnernHnnV 
L _ r mj 



mmw^nrt mmmm 



A card of this form following a major control card which references file 
'Name indicates that modification is to occur from sequence numbers 
mmmm to nnnn inclusive. Cards following the monor control card are 
used for the modification; their extent being delimited by the occurrence 
of another control card. 
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Any number of non-control cards may follow a minor control card; and any number of 
minor control card sets may follow a major control card. Ordering of these cards, 
however, is essential . Major control cards must refer to the files in their order of 
appearance on the master tape. Minor control cards must be ordered by sequence within 
a file; and the sequence numbers cannot overlap. Cards which occur out of order 
result in an error message (see below), and are ignored if updating continues. 

It should be noted that a card with an * in column 1 is not recognized as a control 

card, irrespective of the content of the remainder of the card. This permits commentary 

to pass through the system without accidentally being treated as a control card. 

A consequence of this, or course, is that file identifiers cannot begin with the character 

*; they are otherwise unrestricted, however. 

*F5LE CARD 

The major control card 

1 8 16 

Name *F1LE [7 All 

initiates action of the file 'Name.' If in the varable field: 

1 . A is chosen, the updated file is written onto the second output tape, 
SYSUT4. 

2. M is chosen,the updated file is written onto the second output tape, 
SYSUT4, and an end-of-fi!e mark is placed behind it* 

If neither option is exercised, the updated file is not written onto the second output 
tape. 

If the *FILE card is not followed by minor control cards, the result is simply to produce 
sequence numbers on the cards of the file. In this way, a master tape prepared 
by some non-system program or method (card-to-tape, for example) can be easily 
converted to the standard format. 

♦RENAME CARD 

A file may be renamed at the same time it is modified by means of the major control card: 



8 16 36 



Naml *RENAME 



Nam2 



"Nam2" replaces "Naml" as the name of the modified file. In all other respects 
the *RENAME card functions exactly like the *FILE card. 
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*NEW CARD 

A file may be added to the master tape by means of the major control card: 



1 8 16 

Name *NEW 



m 



'Name' becomes the file identifier, and the options are the same as described under 
the *FILE card. 

When the *NEW card is encountered, a master tape identifier (*FI LE) card is generated 
and placed on the output tape(s). Cards following the *NEW card become the content 
of the new file, their extent being determined by the occurrence of another(major) 
control card. A minor control will also terminate the file, but should not be used 
in as much as the maintenance program assumes that the new file is not sequenced 
and, consequently, not subject to modification. 

*DELETE CARD 

An entire file, including the *FILE identifier card, is removed from the tape by use 
of the major control card: 

1 8 

Name *DELETE 

A file which is being deleted is not written on any output tape, and is not subject 
to any modification. 

*ALTER CARD 

Changes on a given file are described most often using the minor control card: 

1 8 16 

Name *ALTER mmmm fTnnnrTl 

When this *ALTER card is recognized, the modification process is as follows: 

1 r~~Ae . .-v «■*% U..* —~j. : I. .J: i -.^ . i .. . . i . 

■ . v-miuj wp >w, uui iiui nibiuuiiiy, sc^uciii-c numueis mmmm are piacea on 

the output tape(s), with sequence number adjustment if required. 

2. If nnnn appears, cards sequenced from mmmm through nnnn inclusive are 
deleted, and the cards which follow the *ALTER card are put in their 
place, until the occurrence of another control card. The number of 
cards inserted need not be the same as the number deleted. 



709/7090 Commercial Translator 
1 (10/61) 06.04.06 



3. Ifnnnndoes not appear, no deletion occurs, and the cards are simply 
inserted before the card sequenced mmmm. 

'Name' must agree with the file identifier or the card is not effective. Leading zeros 
may be suppressed in the variable field for both mmmm andnnnn,and a blank may 
be used in place of the comma. For convenience, the operation may also be written 
*A instead of *ALTER. 

*iNSAS CARD 

The minor control card 

} 8 16 

Name *INSAS mmmm 

is used when an insertion is to be made only oh the second output tape. Cards following 
the *INSAS card are inserted on this tape prior to the card sequenced mmmm. The 
sequence number is not advanced during the insertion, so that the sequence numbers 
of cards which appear on both the master and second output tapes always agree. 
For convenience the operation may also be written *|A instead of *INSAS. 

This type of insertion is useful if the second output tape is intended for assembly input, 
since LIST, UNLIST, END and other special cards can be placed where desired, 
without affecting the file kept on the master tape. 

Another very important use is to create *MAIN type control cards when the second 
output tape is intended for use as the input of another symbolic update. A controJ 
card cannot normally be placed on an output tape, since recognition of such a card 
terminates any modification sequence and begins another. For this reason, a card 
under the scope of an *IA card which has the character combination *+* in columns 
1-3 is special . For such a card, columns 1-6 are replaced by columns 25-30, and 
columns 25-30 are blanked out before the card is placed on the second output tape. 

*NOTES CARD 

When modifying a file of symbolic instruction cards, it is sometimes convenient to 
replace only the commentary field of certain cards. The minor control card 

1 8 16 

Name *NOTES mmmm r,nnnnj 

is for this purpose, and functions as follows: 

1 . Cards up to, but not including, sequence mmmm are placed on the 
output tape(s) . 
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2. If nnnn appears, the cards sequenced from mmmm to nnnn inclusive are 
deleted. Cards which follow the *NOTES card are then matched one- 
for-one with cards on the master file following sequence number nnnn. 
Columns 36-72 of these cards replace columns 36-72 of the corresponding 
master file card. Columns 1-35 of the card are not disturbed. 

3. If nnnn does not appear, the commentary replacement begins with the 
card sequenced mmmm . 

4. The process terminates with occurrence of another control card, or when 
the file 'name 1 is exhausted of cards. 

Care should be exercised in using the * NOTES card in order to avoid intrusion into 
the scope of a minor control card which follows. For, since the *NOTES card results 
in passing cards of the master tape beyond the deletion (if any) . the first sequence 
number which can enter into the next change is: 

p+mmmm or p+nnnn+1 

where p is the number of cards within the scope of the *NOTES card. For convenience, 
the operation may be written *N instead of *NOTES. 

*END CARD 

Upon recognition of the major control card: 

8 
*END 

the changes applicable to the last file referenced by a major control are completed, 
the remainder of the master tape is copied onto the new master (is any) and control 
is returned to CTM . An *END card is simulated if an end-of-file condition is 
encountered in the input. 

CHANGE STATUS INDICATORS 

For convenience in comparing the updated tape with the old, the change status of 
every card in the file referenced by a major control card is indicated in column 83 
on both the new master and second putput tapes. If this column contains: 

1 . A blank, the card was not changed; 

2. An asterisk (*), the card was inserted; 

3. A dollar sign ($), the card was commented; 

4. A plus sign (+), the card is an insert on the second output tape only; 

5. A slash (/), the card is the first one following a deletion. 
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MESSAGES 



Just prior to return to CTM, if a new master tape was created, a list of the files in 
order of appearance on the tape is printed on-line. If an error is detected, a message 
of the form: 

(MESSAGE) LAST CHANGE AT Name Nnnn PRESS START TO CONTINUE 

is printed, and a pause occurs to allow operator action. The messages which may 
print are: 

1. CANNOT FIND FILE 'name' 

Either 'name' is mis-spelled or the *FILE card is out of order. In either 
case, if the start button is depressed, the program continues as if an 
*END card had been encountered. 

2. CHANGE READ ERROR 

Permanent read redundancy on the input tape. The program will continue, 
accepting the input as it stands, if the start button is depressed. 

3 . OLD MASTER READ ERROR 

Permanent read redundancy on the input tape. The program will continue, 
accepting the input as it stands, if the start button is depressed. 

4. *FILE CARD MISSING 

The first card of a file on the master tape is not a *FILE identifier or an 
*END card. The program will continue normal operation if the start 
button is depressed. The master tape should be replaced, however, since 
modifications to the file with the missing identifier are not possible. 

5. *ALTER OUT OF SEQUENCE 

If the start button is depressed, the out of sequence set is ignored and 
normal operation continues. 

6. MAJOR CONTROL MISSING 

The first card of the change sequence is not a major control card. If 
the start button is depressed, the program continues normally, ignoring 
all changes cards prior to the first major control card. This occurrence 
is normal if the input tape was prepared as the second output of a previous 
update for which the C option was not used, since some *FILE identifier 
card must alwyas be first on such a tape . 
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7. MINOR CONTROL MISSING 



The first card following a major control card is not a minor control card. 
If the start button is depressed, the program continues normally, ignoring 
all cards on the input tape until the next control card. 

8. MINOR CONTROL ERROR 

The identifier 'name' on the minor control card does not agree with the 
identifier of the file. If the start button is depressed, the program con- 
tinues normally, ignoring all cards on the input tape until the next control 
card. 

9. SEQ ERROR ON MASTER FILE 

A gap in the sequence numbers was found while positioning a file to the 
first card involved in some modification set. If the start button is depressed, 
the program continues normally, ignoring all cards on the input tape 
until the next control card. The sequence number gap will be repaired. 
Such an error can only occur on a master tape which was not prepared 
by the system . 

10. UNEXPECTED END OF FILE 

The master tape contains some end-of-file mark other than the normal 

file separators. If the start button is depressed, operation will be continued, 

although recovery is probably not possible. The master tape should be 



r^nlnr-isf 
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APPENDIX 90.01 



DEFERRED FEATURES, RESTRICTIONS, AND LIMITATIONS 
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90,01 Deferred Features, Restrictions and limitations 

A. Compiler 

1 . Language 

a) Procedure 

i CALL verb 



Subscripts may not be used in specifying the (old. name). 
Both of the following usages are erroneous: 

CALL (A(J))B. 

CALL (A(3))B. 

CRYPT 

Qualified names may not be referenced by CRYPT instructions, 
The following usage is incorrect: 

CLA MASTER NAME 

The verb CALL may be used to reduce a qualified name to 
a single unique name. 

DISPLAY verb 

Data names not intended to be used as qualifiers must be 
separated by commas; otherwise all but the last will be 
disregarded . 



iv GET verb 



Card files processed on-line may only be in BCD and fixed 
length for field test. 

All input records containing arrays will be processed in the 
transmit mode by the field test processor. This is true for 
both fixed and variable length records. 

Records from different files which have been REDEF'd 
together will not be automatically transmitted by the field 
test processor (see 02.07.05 c-ii for description of the 
feature) . SPANS or HOLD must be used. 
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v. INCLUDE verb 

Mechanization of the INCLUDE verb has been deferred, 

and consequently no library facilities are currently available. 

vi Indexing (including the DO verb) 

A repeated usage of a subscript name should be avoided 
when possible. When a subscript changes value, all 
positional indicators containing that subscript will be 
re-evaluated. Use of the same subscript names for multiple 
purposes generally causes unnecessary calculations in the 
object program, but it will not be incorrect. 

The dimensions of an array must be set before calculation of 
subscript values associated with the array is performed. 
Presently, failure to observe this restriction causes invalid 
object code. 

For example, the following sequence of instructions is 
incorrect: 

SET I =3, SET J =5. 

SET Q = 10. (where the data description shows Q 

occurrences of A) 
MOVE A (I, J) TOR. 

In this case, the positional indicator for A(l, J) is computed 
when I and J are set and not updated when Q is set. The 
system presently causes all records containing arrays to be 
transmitted. However, care should be taken when an array 
follows a variable length array. In this case, the positional 
indicator will not be updated when the base is determined. 
Therefore, the subscripts must be set prior to making a 
subscripted reference to the array. 

A DO section will always be performed at least once 
regardless of the values of the loop control variables. 

No object time check is made to insure that subscript 
references conform to the limits specified by the array 
dimensions in the Data Description. 

vii MOVE verb 

Figurative constants may not be moved to variable length arrays; 
they may, however, be moved to fixed length arrays or to 
array elements. 
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viii LOAD and OVERLAP verbs 

implementation of these verbs has been deferred. 

ix Miscellaneous 

Procedure. names not followed by a period (.) and blank are 
handled properly; no diagnostic message is given. 

A period (.) followed by a blank in a procedure statement 
terminates analysis of the statement except when they appear 
within an alphabetic literal; any information in the same card 
which follows the period is assumed to be commentary. No 
diagnostic comment is made. 



b) Data Description 



i COPY type code 

Implementation of COPY has been deferred. 

ii RECORD type code 

A name associated with the RECORD type code must be unique. 
If the record is defined within a section the section. name 
may not be used as a qualifier of the record. name. 

Since a quantity specification may not be made at the record 
level, record. names may not be subscripted. 

1 1 1 REDEF type code 

Whenever an input record containing an array is involved in a 
REDEF, the record containing the array should precede the 
REDEF in order to get optimum results. An area involved in a 
REDEF must not contain subscript variables or a QUANTITY. IN 
value. 

iv Pictorials 

A field may not be described as a mixed numeric and alphameric 
liciu, i.e., uofh A's and 9's in a pictorial, if this specification 
is made the field is treated as alphameric. 

ftA.t J I 

» miiivciiuiicvua 

Neither a data item (literal) nor a condition. name may be sub- 
scripted. However, a conditional variable may be subscripted. 
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Fields may not be defined following a variable length array as 
part of the same data hierarchy. 

c) Environment Description 

i CONTRL card 

Mechanization of multiple deck combination has been deferred. 
CONTRL specifications will have no effect on the object deck 
produced by the Compiler, i.e., no control break table is punched. 

ii FILE card 

A maximum of 63 files may be described. 

No file check table is produced in the object deck. 

CARD, BINARY and locate/transmit mode restrictions are discussed 
with the GET verb (A. 1 . a. iv. above). 

iii SPECIF card 

Absolute tape assignment cannot be made; symbolic and relative 
assignment techniques are used (see section 02.06). 

Unless system utility tapes (UTk) are explicitly designated the 
drives assigned to them are not used at execution time as object 
program units. 

iv Miscellaneous 

Qualified names may not be used in the Environment Description. 
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2. Internal Table Size Limitations Appox-Max 

Size 

a) Internal dictionary including ail program names 3300 
whether defined by the programmer or generated by 

the Compiler. 

b) Number of SECTIONS. 35 

c) Number of different edited field formats. 35 

d) Number of base locators (for the field test version this is 

the number of located records). 127 

e) Number of QUANTITY I N specifications . 25 

f) Depth of nested sections. 18 

g) Number of index expressions (a * VARIABLE ± b) 50 

h) Number of positional indicators (each unique combination 
of array and subscript notation, e.g., A(l), A(l + 1) 
B(S) requires 3 positional indicators. 90 

i) Number of array dimensions (explicit or implicit 

Quantity specifications). 85 

j) Number of levels in a data hierarchy. 23 

k) Number of generated constants in the constant pool 500 

-CP)+NN 

B. Loader 

1 . The control break table is not processed by the loader. This implies that multiple 
program loading with cross references by means of control breaks is not available. 

2. Deferred implementation of the LOAD-OVERLAP verbs implies that programs may 
not be segmented into separate memory loads at this time. 



o . 



ino aeougging facilities are currently available. 



4. Normally the MINIMUM module of IOCS is used with the object program. If 
checkpoints are desired or specified BASIC IOCS is used. If labeling exists the 
LABELS version of IOCS is necessary. 

5. The Compiler accepts without comment a deck. name containing imbedded blanks 
and punches it in Loader symbolic control cards. A deck. name of this form is not 
acceptable to the Loader and will prevent execution of the obiect nmomm. 

i - - r • o - - • ■ • * 
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APPENDIX 90.02 
GENERATED CODE OF THE COMMERCIAL TRANSLATOR 



INTRODUCTION 

The normal listing output of the Commercial Translator consists 
of the original source statements augmented by a sentence 
number, an indication of errors detected during compilation, 
and a file list * 

In addition, an assembly-like listing of the instructions generated 
by the compiler may be obtained by including the word LIST 
as one of the parameters on the $CMPLE card. This appendix 
explains the format and content of the instruction listing. 
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SYMBOLIC LISTING 

The symbolic listing is composed of four columns under the headings: 

A. LOC 

B- OCTAL 

C. CNTRL 

D. SYMBOLIC 

A. LOC 

Each octal number under the heading LOC represents the displacement of the associated 
word from the first word of the object program (not necessarily PROGRAM. START) . 
A blank space in this column accompanied by USE in the symbolic part of the listing 
represents a location counter discontinuity. The location counter discontinuity results 
from the compiler's use of three different 'pseudo' location counters during compilation. 
The three 'pseudo' location counters have been given the names: 

Location Counter 
Location Counter 1 
Location Counter 2 

Location Counter is used by the compiler for the generation of in-line instructions, i .e., 
those instructions whose location is determined by the relative position of items in the 
source deck. Instructions generated under Location Counter represent: 

1 . The main body of procedure text 

2. Storage reservation for fixed location Data areas, t .e., data not located in an 
input/output buffer. 

Location Counter 1 is used by the compiler for the generation of out-of-line subroutines 
and working storage areas which are used by the main body of the program. The subroutines 
generated under Location Counter 1 are, in general, routines which update 'pointer words'. 
A 'pointer word' is a word that points to (or addresses) a particular data item. If the 
location of the data item changes, the word pointer must also change. Data items which 
may change locations include: 

1 . Items located in buffer areas 

2. Items within an array or following an array 

Location Counter 2 is used by the compiler in initializing 'pointer words' with pre- 
determined constants. 

References to the three 'pseudo' location counters occur at LOC discontinuities in the 
form of: 

USE N 

where N is 0, 1, or 2. It might be noted in the listing that the first instruction 
generated when Location Counter is in use has the initial Displacement of in 
the LOC field. Also, the first instruction generated when Location Counter 1 is in 
use will have, in the LOC field, a value one greater than the highest value obtained 
under Location Counter C 



709/7090 Commercial Translator 
1 (10/61) 90.02.02 



In other words, Location Counter 1 begins where Location Counter ends. 

B.-C OCTAL CNTRL 

Each 12 digit octal number under the heading OCTAL represents a word punched in the 
object deck. Eacn" 5 digit binary number under the heading CNTRL specifies additional 
information about the OCTAL word. The 5 digit number is also punched in the object deck 
and controls the loading of the OCTAL word. A detailed explanation of the object-deck 
format and the CNTRL and OCTAL words is given in Appendix 90.03. 

D. SYMBOLIC . 

The symbolic part of the listing is a 'SAP' -like listing with a few modifications, namely: 

1 . Printing of names up to 30 characters in length. 

If a statement name exceeds 15 characters the associated symbolic instruction 
is printed on the following line. 

2. Printing of multiple names. 

If more than one name is associated with an instruction, each name is printed, 
one name per line. 

3. Printing of identical names. 

If the programmer makes use of the name qualification feature in the source 
program, as in the following example: 

Name Level Description 



A 
A 



The reference to A C will appear in the symbolic listing as 1)C and the reference to B C 
will appear as 2)C This results from the fact that the compiler sequentially numbers each 
identical name it encounters in the source program and it is this number which accompanies 
each reference to the name in the symbolic listing. (Note: In the reservation of storage 
for *DATA areas, only those names which represent the lowest level number in the data 
area will be printed on the left side. For the above example, the data part of the listing 
would appear as: 


1 
1 



*DATA 




A 


01 


C 


02 


B 


01 


C 


02 


♦PROCEDURE 




Move A C to B C . 





*DATA 


BSS 


A 


BSS 


B 


BSS 



1. 


RS 


II. 


TS 


III. 


BL 


IV. 


PI 


V. 


CP 


VI. 


GN 


VII. 


SYS 


VI ! ! . 


\r\r- 

1 K^S, 
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4. Compiler generated names 

The symbolic listing will contain many references to names not found in the 
source language. These compiler generated names have the same form; a 
two or three letter symbol, followed by a right parenthesis, followed by a 
number, i.e.: 

SYM)NNN 

The symbol part, SYM, may be one of the following: 
Symbol Abbreviation For 

Result Storage 
Temporary Storage 
Base Locator 
Positional Indicator 
Constant Pool 
Generated Name 
System Subroutine 
1/ O Suurounne or Communication 

The number NNN specifies a particular item in one of the 8 groups. In the 
case of constants (CP references), the designation CP)+NN is used. 

RS - Result Storage 

Result Storage cells are reserved by the compiler to temporarily store the 
results of a CT statement. Unique result storage cells are reserved for each 
action of the program as they are needed. Examples of instructions which 
refer to Result Storages might be: 

SLW l.RS)0 

LAS 2.RS)2 

The number preceding the decimal point is a section-number and the number 
following the right parenthesis is a particular result storage within the section. 
Section numbers begin with (main body of program) and increase by 1 for 
each 'Begin Section' in the source program. Near the end of the symbolic 

v ^..„, .,.*, ,„*, ,,,onuv.iiuii ycncrurea Dy rne rroceaure Division) the 

following instructions will appear: 

USE 1 

RS) BSS NfOmiwoJ if -~ d s ..,ii. ci. ,_. • i\ 

. , v ^f..,,, ,v,« ii nw j\€dUii jiOiuyci are requirea) 

These instructions reserve the necessary cells for all Result Storage. N is 
the sum of maximum Result Storage used in each section . 



709/7090 Commercial Translator 
1 (10/61) 90.02.04 



TS - Temporary Storage 

Temporary Storage cells are generated by the Compiler to temporarily store 
an item. The difference between Temporary Storage cells and Result Storage 
cells is that Temporary Cells are not section-qualified. An example of an 
instruction referring to Temporary Storages might be: 

ANA TS)1 

Temporary Storage cells are reserved immediately after Result Storage.cells 
by the instruction. 

TS) BSS N 

where N is the total number of cells to be reserved. 



BL - Base Locator 

Base Locator cells are a type of 'pointer word' . These pointer words address 

one of two types of data, namely: 

1 . Records located in a buffer. 

2. Data located after a variable length array. 

References to Base Locators occur in the symbolic listing whenever the pointer 
word must be changed. This type of reference to a Base Locator is usually 
part of a 'GET' calling sequence to the Input/Output system. An example of 
a sequence that changes the value of a Base Locator due to locating data 
within an input buffer might be: 

TSX 1008,4 

PZE FILENAME, ,SYS)260 

PZE END-OF-FILE -PROCEDURE, , ERROR-PROCEDURE 

IOCDN* BL)2,,14 

This sequence of instructions fills in the cell BL)2 with the location of the first 
word of a 14 word record which is in an input buffer. 

Following the updating of a Base Locator further references to BL's may occur 
in the form: 

LAC BL)2,4 

CAL DATANAME,4 

References to data located by means of a Base Locator is usually done in this 
manner, i .e., by first loading an u-.dex register with the 2*s complement of^ 
the location of the first word (the base) of the data block and then referencing 
any data item within that block by using the relative word position or displacement 
from the beginning of the block. 
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If, in the above example, the Data organization for DATA NAME was: 
NAME LEVEL TYPE FORMAT 



*DATA 








ARECORD 


01 


RECORD 




ITEM 


02 




A(6) 


DATANAME 


02 




A(6) 



and ARECORD is located in an input buffer, the relative word position of 
DATANAME would be 1 and the symbolic instruction 

CAL DATANAME, 4 

would generate the machine instruction: 



CAL 



1,4 



The frtrm r\( rt Dnro I «%.»»«. *.««.. ...__J *_, 
. ..— oxii «*■ v. l/v4>"> luviuiwi wuiQ is: 

PZE LOC, , BYTE 

where LOC is the word address of the first word of the data organization, 
and BYTE is the position in that word (0-5) of the first data item. By definition, 
a 'simple' Base Locator is one with BYTE always 0. Input records are located 
by 'simple' Base Locators. A 'complex' Base Locator, by definition, is one 
that locates items after a variable length array. The BYTE of a 'complex' 
Base Locator may range from through 5 depending on the byte length of the 
array . 



IV. PI - Positional Indicator 

Positional Indicator cells are a type of 'pointer word' . These pointer words 
locate items within an array. When a CT operation such as SET causes a 
subscript to change value, the corresponding positional indicator is modified 
A modification of this type might appear in the listing as: 



CLA 
ADD 
STO 



CP)+1 
Pl)6 



Storage for Positional Indicators is reser"^^ : - 
Locators by the instruction: 

PI) BSS N 

N is the total number of Positional Indicators, 



leuiutery following the Base 
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V. CP - Constant Pool 



CP - Constant roo i . 

Constants needed by the object program are pooled together in a block of 
storage immediately following the Positional Indicators. An example of a 
reference to Constant Pool cells might be: 



CAL CP)+H 

ANA CP)+22 



VI GN - Generated Name m 

' During compilation it is necessary to give certain instructions names in order 
to refer to these instructions from a remote part of the program. Names are 
generated and placed on such instructions and might appear in the listing as: 

TSX GN)019,4 

GN)019 CLA Pl)3 

VII. SYS - System Subroutines 

There will be many references in the listing to subroutines which are not 
part of the binary deck produced by the compiler. Typical references to such 
subroutines might appear in the listing as: 



ST! 


SYS) 133 


TSX 


SYS) 182, 4 


TXI 


SY 5)243,1,84 



These System Subroutines are contained on the System Tape and are brought 
into core, as needed, by the CT LOADER. The function of each of these 
routines and an explanation of the calling sequences that appear in the l.st.ng 
are explained in the latter part of this Appendix. 

VIII IOC - Input Output Subroutines and Communication 

' References to Input/Output subroutines and communication cells appear in the 
listing in the form IOC)NNN. Typical references to IO routines or commun- 
ication cells are: 



TSX 


1009,4 


MZE 


IOC) 17 


PZE 


IOQ29 



Most of these are routines that are a part of the CT monitoring system which 
is in core at all times. The function of each routine is explained in the 
latter part of this Appendix. 
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CT SYSTEM SUBROUTINES AND COMMUNICATION CEL LS 

The Commeraal Translator object deck makes references to two types of routines not contained 

m the deck itself. These two types of subroutines are: 

Type 1 . Subroutines contained on the system tape which are placed in core as part of the 
CT Monitoring System and remain in core to be used by any part of the CT System 
Compiler, Loader, Object Program, Updater, File Maintenance or Accounting ' 
Routine. These subroutines, for the most part, are concerned with Input/Output 
functions. r 

Type 2. Subroutines contained on the system tape which are placed in core by the CT Loader 
as required by the particular object program being loaded. ' 

In addition to System Subroutines, there are individual cells and groups of cells which contain 
-formation which must be accessible to various parts of the CT system These Communication Cells 

oe paS^CTit T & TT " ^ ***««»»' '■•- *°" -mmunloatlon cells ^ 
are part of the CT Monitoring System are Type 1, and those communication cells which are a 
part of a particular ob|ect program are Type 2. 

Each of these System Subroutines and Communication Cells has been assigned a number. Type 1 
entries received a number between 1 and 127 and Type 2 entries received a number greater than 
127. |„ the symbolic listing of a compiled program, references to Type 1 entries will be of the form: 

IOQNNN 

Ms h Hng al NN '" ^ ^^ "^ ^^ ' ^ ™ ' Type 2 entrIeS W? " <W" in ^ ^olic 

SYS)NNN 
where NNN is the assigned number greater than 127. 

The following pages list the CT Subroutines and Communication Cells which may appear in the 
symbolic listing of a CT program. "Hpear m me 
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IOC REF ERENCE NUMBERS 

A knowledge of the 7090 IOCS is necessary in understanding most of the IOC Numbers. 

SYSTEM REFERENCE FORMAT and/or FUNCTION 

|OC)l PZEL,,N 

A cell in the CT Monitor communications area which locates (J.) a list ot tiles, 
and designates the number (N) of files in the list. This List is used in 
Opening and Closing files. 

IOC)2 PZEL,,12*N 

A cell in the CT Monitor communication area which locates (L) a number 
(N) of IOCS file blocks. I/O information is kept in each of the 12 word 
blocks for every file in the CT program. 

IOC)3 The entry point to the IOCS DEFINE subroutine. 

IOC)4 The entry point to the IOCS JOIN subroutine. 

IOC)5 The entry point to the IOCS ATTACH subroutine . 

IOC)6 The entry point to the IOCS CLOSE subroutine. 

IOC)7 The entry point to the IOCS OPEN subroutine. 

IOC)8 The entry point to the IOCS READ subroutine. 

IOC)9 The entry point to the IOCS WRITE subroutine. 

IOC) 10 The entry point to the IOCS COPY subroutine. 

I OC) 1 1 The entry point to the I OCS REWI ND subroutine . 

IOC) 12 The entry point to the IOCS WRITE- END- OF- FILE subroutine. 

IOC) 13 The entry point to the IOCS BACKSPACE-RECORD subroutine. 

IOC) 14 The entry point to the IOCS BACKSPACE-FILE subroutine . 

IOC) 15 The entry point to the IOCS CHECKPOINT subroutine. 

IOC) 16 The entry point to the IOCS STASH subroutine . 

IOC) 17 The entry point to the IOCS MESSAGE- WRITER subroutine . 

IOC)29 This is a 14 word area within IOCS which is used to process all labels. 
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IOC)40 

IOQ46 
IOC)53 



This is the end of job return point in the CT Monitor communication area 
for all CT jobs. 



This is the first cell of the CT Monitor communication 



area. 



This is a cell in the CT Monitor communication area which contains the current 
date in BCD in the form: 

MM DD YY 

MM is the month 
DD is the day 
YY is the year 

IOQ54 This is a cell in the CT Monitor communication area which contains the current 

time in BCD. (Subject to each installation providing an accounting routine 
which fills in this cell). 
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SYS REFERENCE NUMBERS 

88 Many of the SYS Reference numbers are concerned with subroutines to move fields at ob|ect 

time. The interaction of various of these 'MOVE' subroutine made it desirable to package several of 
them together into one subroutine (called MOVPAK). < 

In discussing the various types of moves the following abbreviations and definitions are used. 

1 . Alphameric fields 

AF: Alphameric Field (pictorial contains only A's and X's) 

2. Fixed Point Numeric fields . _ 
XD: External Decimal (pictorial contains only 9's, S's, V and 9 or 9) 

ID: Internal Decimal (pictorial contains only 9's, S's, V; £R given as mode 

and justification) . 
IDnj: Internal Decimal not justified (same as ID but justification not given as R) 
EF: Edited Field (pictorial contains one or more of the following characters: 

8 + - . , * or the clause Blank When Zero 

3. Numeric field with exponent 

SD: Scientific Decimal (pictorial represents signed mantissa followed by 

signed exponent) 
FP: Floating Point (pictorial is F or FF) 

4. Figurative constants 
BL: Blanks 

ZE: Zeros 

HV: High values 

LV: Low values 

5. Literals 

Literals are classed as AF, ID, or FP. 

SYSTEM REFERENCE FORMAT ana/or FUNCTION 

SYS) 128 These two cells serve as storage for multi precision arithmetic operations. 
SYS) 129 

SYS) 130 This cell is set non-zero whenever any one of the numeric move or convert 

subroutines of MOVPAK detects the truncation of significant high order values 
(i ,e. overflow). 

SYS) 131 This cell is set non-zero whenever any one of the numeric move or convert 
subroutines of MOVPAK detects an improper data condition . 

SYS) 132 PZE LOC,,BYTE 

This cell points to the first word address (LOO <™<* f» rst BYTE v " 5 ) of tne 
source field involved in a Move. The cell is set by one of the following: 
T Fis set automatically by calls upon subroutines SYS) 179 or SYS) 181 
(see calling sequences). 
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2. It is set by in-line coding preceding calls upon subroutines SYS) 180 or 

SYS) 182 (see calling sequences). The in-line coding which sets the cell 
will be one of three forms: 

Case I . When the data item is working storage 

LDI CP)+NN 
STI SYS) 132 

where CP)+NN will contain the location and byte of the data item. 

Case 2. When the data item is located by means of a 'simple' Base 

Locator. (A simple base locator is defined as one that always 
has byte+0) . 

CAL BL)NN 
ACL CP)+NN 
SLW SYS) 132 

where CP)+NN is a constant of the form: 

PZE WORD-DISPLACEMENT, , BYTE 

Case 3. When the data item is located by means of a 'complex' Base 
Locator. (A complex base locator is defined as one that has 
Byte to 5) . 

CAL BL)NN 

ACL CP)+NN1 Displacement Constant 

PDX 0,4 

TXL *2,4,5 

ACL CP)+NN2 OCT 77777200C000 

SLW SYS) 132 

SYS) 133 pze LOC,,BYTE 

This cell points to the first word address (LOC), and the first BYTE'0-5^ of the 
target field involved in a Move. The cell is set by calls upon subroutines 
SYS) 179 or SYS) 180 or by means of in-line coding of the same form as 
described under SYS) 132. 

SYS) 134 This cell is set non zero whenever a floating point underflow results from a 

Move. 

SYS) 155 This floating point exponential routine raises the double precision number 

in the AC-MO to the single precision power located in SYS) 128. The 
double precision result is left in the AC-MQ. 
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SYS) 156 This floating point exponential routine raises the double precision number 

in the AC-MQ to the double precision power located SYS) 128 - SYS) 129. 
The double precision result is left in the AC-MO. 

SYS) 160 TSX SYS) 160,4 

This is a subroutine for sign adjustment for double precision fixed point 
numbers. The routine is entered with the number in the AC-MQ and 
the result is left in the AC-MQ. 
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SYS) 16 1 This is a conversion table used in converting from 709 to 705 collating sequence 

SYS)162 TSX SYS)162,4 

OP SYS) 161 

PZE LOC( 1),T(1), LOCATOR(l) 
PZE LENGTH(1) // 6*BYTE(1) 
PZE LOC(2),T(2),LOCATOR(2) 
PZE LENGTH(2),,6*BYTE(2) 
HIGH RETURN from comparison 
EQUAL RETURN from comparison 
LOW RETURN from comparison 

This subroutine performs an alphabetic comparison on two fields. OP is a 

CVR or NOP depending of the need to adjust the collating sequence before 

the comparison. If T(J) is 0, LOC(J) is the location of the field. If T(J) 

is not zero, the field is located b the 'pointer' word LOCATOR (J) and 

LOC(J) is the word displacement from the base. LENGTH(J) is the length 

of the field in characters and BYTE(J) is the beginning byte position of the field. 

SYS) 163 TSX SYS) 163,4 

PZE CP)+NN 

This routine upscales the single precision AC by 10**10 and then upscales by 
the constant located at CP)+NN . 

SYS) 164 TSX SYS) 164, 4 

PZE CP)+NN 

This routine upscales the number in the MQ by 10**10 and then upscales by 
the constant located at CP)+NN . 

SYS) 165 TSX SYS) 165,4 

PZE CP)+NN 

This routine upscales the double precision AC-MO by the constant located at 
Cr)+NN. 

SYS) 166 TSX SYS) 166, 4 

PZE CP)+NN 

This routine upscales the double precision AC-MQ by the constant located 
at CP)+NN. On entry to the routine, the high order part of the number is 
in the MQ and the low order in the AC 
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SYS) 167 TSX SYS) 167,4 

PZE CP)+NN 



This routine downscales the double precision AC-MQ by the constant located 
at CP)+NN and leaves the result in the AC-MQ. 



SYS) 168 TSX SYS) 168,4 

PZE CP)+NN 



This routine downscales the double precision AC-MQ by 10**10 and then 
downscales by the constant located at CP)+NN leaving the result in the MQ 



SYS) 169 TSX SYS) 169,4 



This routine divides the double precision fixed point number in SYS) 128 and 
SYS) 129 by the AC-MQ • The result is left in the AC-MQ . 



SYS) 170 TSX SYS) 170,4 

PZE CP)+NN 



This routine multiplies the double precision AC-MQ by SYS) 128 SYS) 129, 
scales the product down by the constant located at CP)+NN and leaves 
the result in the AC-MQ • 



SYS) 171 TSX SYS) 171,4 

PZE CP)+NN 



This routine multiplies the double precision AC-MQ by SYS) 128 SYS) 129, 
scales the product down by 10**10, and then downscaies by the constant 
located at CP)+NN. The result is left in the AC-MQ. 



SYS) 172 TSX SYS) 172,4 



This floating point exponential routine raises the single precision number in 
the AC to the single precision power located in SYS) 128. The result is left 
in the AC 



SYS) 173 TSX SYS) 173, 4 



This floating point exponential routine raises the single precision number in 
the AC to the double precision power located in SYS) 128 - SYS) 129. The 
double precision result is left in the AC-MQ. 



SYS) 174 TSX SYS) 174,4 

PZE FILENAME 



This routine opens the file designated FILENAME. 
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SYS) 175 TSX SYS) 175,4 

PZE IOQ1 



This routine opens all files in the file list located by IOC)l . 

SYS) 176 TSX SYS) 176, 4 

PZE FILENAME 

This routine closes the file designated FILENAME. 

SYS) 177 TSX SYS) 177, 4 

PZE IOQ1 

This routine closes all files in the file list located by IOQ1 . 

SYS) 178 TSX SYS) 178, 4 

PZE CP) + N N j //C p) +NN2 
PZE CP) +N N3 . . CP)+NN4 

This routine displays a message concerning a STOP verb. The CP (Constant 
Pool) entries contain the Statement Number of the Stop (in BCD), and the type 
of STOP (STOP NNN or STOP RUN). na rne rype 

SYS) 179 TSX SYS) 179, 4 

SOURCE-ADDRESS-REFERENCE 
TARGET-ADDRESS-REFERENCE 
Begin specific Move subroutine call 

This is one entry point roMOVPAK . This entry uses the information in the calling 

fv^T^ *° A ? T ^° Ve S ° UrCe P ° ?nter ' SYS > 132 ' and the Move Target Pointer, 
iYbjMJ. Alter tnese data pointers have been set, the instructions beginning 
at 3,4 are executed to actually perform the moving operation. 
The ADDRESS-REFERENCES in the calling sequence are of the following form- 
Case J . For Working Storage data items. 

PZE LOC, , BYTE 

where LOC is the first word address and BYTE is the first byte 
of either the source or target field. 
Case 2. For data items located by a Base Locator. 

MZE BL)NN,,CP) +NN 

where BL)NNN is the location of the Base Locator and CP)+NN 
is a constant that is the displacement distance of the data item 
from the base . 
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Case 3. For Data items located by a Positional Indicator. 
MON PI)NN,,0 

where PI)NN is the Positional Indicator which locates the data 

item. 

SYS) 180 TSX SYS) 180, 4 

TARGET-ADDRESS-REFERENCE 
Begin specific subroutine call 

This is an entry to MOVPAK in which either the source address of the data 
item has been previously stored in SYS) 132, or the source item is in a machine 
register (AC or MQ) . In either case, the Target Pointer, SYS) 133, is set up 
using the information in the calling sequence in the same manner as SYS) 179, 
and the specific MOVE instructions beginning at 2,4 are executed. 

SYS) 181 TSX SYS)181,4 

SOURCE- ADDRESS-REFERENCE 
Begin specific subroutine call 

This is an entry to MOVPAK in which the target address of the data item 
has been previously stored in SYS) 133 or the target address is a machine register 
(AC or MQ) . In either case, the Source Pointer is set up using the information 
in the calling sequence in the same manner as SYS) 179, and the specific 
Move instructions beginning at 2,4 are executed. 

SYS) 182 TSX SYS) 182, 4 

Begin specific subroutine call 

This is an entry to MOVPAK in which both the Source Pointer, SYS) 132 and 
the Target Pointer SYS) 133, have been preset by inline instructions; or a 
machine register is used for either or both source and target. The specific 
Move instructions are executed beginning at 1,4. 

SYS)183 TXI SYS)183,1, TARGET-SIGN-CONVENTION 

This MOVPAK subroutine moves external decimal fields to external 
decimal fields. The TARGET-SIGN-CONVENTION is as follows: 



IfO 


no sign 


If 1 


overpunch minus 


If 2 


overpunch plus 
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Immediately following the TXI instruction will be two or more of the following 
instructions: 

TXI SYS) 191, 1,NUMBER-OF-CHARACTERS-TO-MOVE 

TXI SYS) 199, l,NUMBER-OF-CHARACTERS-TO-TEST-FOR-OVFRFLOW 

TXI SYS)205 / 1 / NUMBER OF-CHARACTERS-TO-BYPASS 

TXI SYS)209, 1, NUMBER OF TRAILING-ZEROS-TCHNSERT 

TXI SYS)210, l,NUMBER-OF-LEADING-ZEROS-TO-INSERT 

TRA SYS)219 Round current character 

TXI SYS)223,J r TARGET-NUMERIC-LENGTH 

TXI SYS)227, l,NUMBER-OF-CHARACTERSTO-MOVE *Note 1 . 

TXI SYS)231, l,NUMBER~OF-CHARACTERS-TO-TEST-FOR-OVERFLOW 

*Note 1 . 
TXI SYS)235, l,NUMBER-OF-CHARACTERS-TO-BYPASS 

*Note 1. 

*Note 1 . The last character processed under control of this instruction 
• s examined for source fieM e *a" 
This type of MOVPAK call is always terminated by the instruction 

TXI SYS)223, 1, TARGET-NUMERIC-LENGTH 
An example of a Move of the type XD to XD might appear in the listing as: 

LDI CP)+NN I Load Source Pointer 

STI SYS) 132 

LDI CP)+NN- Load Target pointer 

STI SYS) 133 

TSX SYS) 182, 4 Begin moving field 

TXI SYS) 183,1, i XDroXD 

TXI SYS)19l,l,10 10 characters to a 10 character fieid 

TXI SYS)223, 1,10 

SYS ) ]84 TXI SYS)184, 1,NUMBER-OF-CHARACTERS-TOCONVERT 

ThlS i<? rt MOVPAk' ciikrniitma ,.,U:~L ^.^„,.«Kfr Cr^~. „„*.„ 1 J. _• I t _ • . I 

--••■■"»•'»■■» — «-• — "nw "•■iv.ii vv/iiyv. .j nwiu c/mci nui uccirnui ro inrernai 

decimal leaving results in the ACorAC-MQ. The sign is assumed over the 
low order digit. 

SYS ) ] 85 TXI SYS) 1 85, 1 , TARGETS DIT- CONTROL *Note 1 . 

OCT TARGET-CONTROL-WORD-BITS 

SYS) 185 is a MOVP\K subroutine which moves an external decimal fieid 
to an edited field. 
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The first word is followed by a TARGET CONTROL-WORD *Note 2, and two 
or more of the following instructions: 

TXI SYS)193, 1, NUMBER-OF CHARACTERS-TO"MOVE 

TXI SYS)201, l,NUMBER-OF-CHARACTERS-TO-TEST-f OR-OVERFLOW 

TXI SYS)206, 1 , NUMBER-OF-CHARACTERS-TO-BYPASS 

TXI SYS)21 1, l,NUMBER-OF-TRAILING-ZEROS-TOHNSERT 

TXI SYS)212 / l,NUMBER-OF-LEADING-ZEROS-TO-INSERT 

TRA SYS)220 Round current character 

TXI SYS)225,1, TARGET-NUMERIC-LENGTH (End of call 

sequence) 
TXI SYS)228 / l / NUMBER-OF-CHARACTERS-TO-MOVE *Note3. 
TXI SYS)232, l,NUMBER-OF-CHARACTERS~TO-TEST-FOR-OVERFLOW 

*Note 3. 
TXI SYS)236, 1 , NUMBER-OF-CHARACTERS-TO-BYPASS 

*Note 3. 

*Note 1 . TARGET-EDIT-CONTROL 

Bits are placed in the decrement which indicate the following 
characteristics of the target field. 

Octal digit Meaning 

00001 asterisks 

L00C2 comma(s) 

0004 decimal point 

uOOlG dollar sign 

00020 Blank When Zero 

*Note 2. Additional specific information about the target field is given 
in the TARGET-CONTROL-WORD which has the form: 

Prefix = if no target field commas; otherwise = number of digits to 

the left of first comma. 
Address = number of leading *'s, or 8's in pictorial . 

Decrement = number of 8's, 9's, *'s, to the left of the real or implied 

decimal point in target pictorial . 
Tag = TARGET-SIGN-CONVENTION 

= if no sign 

= 1 if overpunch minus 

= 2 i f overpunch plus 

= 3 if right minus 

= 4 if right plus 

= 5 if left minus 

= 6 if left plus 

*Note 3. The last character processed under control this instruction 
is examined for source field sign. 
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SYS)186 TXI SYS)186,l,NUMBER-OF CHARACTERS-TO-DEVELOP 

This is a MOVPAK subroutine which converts from internal decimal in the AC 
or AC-MQ to unsigned external decimal . 

SYS) 187 TXI SYS) 187, 1, NUMBER-OF-CHARACTERS-TO-DEVELOP 

This is a MOVPAK subroutine which converts from internal decimal in the AC 
or AC-MQ to external decimal with overpunch minus sign convention. 

SYS) 188 TXI SYS) 188, l,NUMBER-OF-CHARACTERS-TO-DEVELOP 

This is a MOVPAK subroutine which converts from internal decimal in AC 
or AC-MQ to external decimal with overpunch plus sign convention. 

SYS)189 TXI SYS)189, 1JARGET SIGN CONVENTION *Note 1 . 

This is a MOVPAK subroutine which moves an edited field to an external decimal 
field. This word is followed by two or more of the following instructions: 

TXI SYS)192, 1,NUMBER-OF-CHARACTERS-TO-MOVE 

TXI SYS) 195 , 1, NUMBER-OF-CHARACTERS-TOTEST-FOR-OVERFLOW 

TXI SYS) 197, l,NUMBER-OF-CHARACTERS TO-MOVE 

TXI SYS)200, l,NUMBER-OF~CHARACTERS-TO-BYPASS 

*Note 2. 

TXI SYS)203, 1, NUMBER OF-CHARACTERS-TO-TEST-FOR-OVERFLOW 

TXI SYS)207, l,NUMBER-OF-CHARACTERS-TO-BYPASS 

TXI SYS)213 J, NUMBER-OF-LEADING-ZEROS-TO-INSERT 

TXI SYS)215, l,NUMBER-OF-TRAILING-ZEROS-TCHNSERT 

TXI SYS)217, 1, NUMBER-OF-CHARACTERS-TO-SCAN-FOR-SIGN 

TRA SYS)221 Round current characters 

TXI SYS)224, 1, TARGET-NUMERIC-LENGTH (End of call sequence) 

TXI SYS)229,l,NUMBER-OF-CHARACTERS-TO-MOVE 



'Note 7 



o . 



TXI SYS)233, 1, NUMBER-OF-CHARACTERS-TO-TEST-FOR -OVERFLOW 

*Note 3. 
TXI SYS)237, l,NUMBER-OF-CHARACTERS-TO-BYPASS 

*Note 3. 



If No sign 

If 1 Overpunch minus 

If 2 Overpunch plus 
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*Note 2. The first character processed under control of this instruction is 

examined for source field sign. 

*Note 3. The last character processed under control of this instruction is 

examined for source field sign. 

SYS) 190 TXI SYS)190, l,TARGET-EDIT-CONTROL *Note 1 . 

OCT TARGET-CONTROL WORD BITS 

This is a MOVPAK subroutine which moves an edited field to an edited field. 
The first instruction is followed by a TARGET CONTROL WORD, *NOTE 1, and 
two or more of the following instructions: 

TXI SYS) 194, 1,NUMBER-OFCHARACTERS-TOMOVE 
TXI SYS) 196, l,NUMBEROFCHARACTERS-TO-TEST-FOR-OVERFLOW 
TXI SYS)198, l,NUMBER-OFCHARACTERS-TO-MOVE 
TXI SYS)2C2, 1, NUMBER-OFCHARACTERS-TO-BYPASS 

*Note 2. 
TXI SYS)204, l,NUMBER-OFCHARACTERS-TO-TEST-FOR-OVERFLOW 
TXI SYS)208, 1, NUMBER-OFCHARACTERS-TO-BYPASS 
TXI SYS)214, l,NUMBER-OFLEADING-ZEROS-TOHNSERT 
TXI SYS)2 16, 1 , NUMBER-OF-TRAI LI NG-ZEROS-TO-I NSERT 
TXI SYS)218, l,NUMBER-OF-CHARACTERS-TO-SCAN-FOR-SIGN 
TRA SYS)222 Round current character 
TXI SYS)226,1, TARGET-NUMERIC-LENGTH (End of call sequence) 

TXI SYS)2jl, i,number-ofcharacters-to-move 

*Note 3. 
TXI SYS)234, I^nUMBER-OF-CHARACTERS-TO-TEST-FOR-OVERFLOW 

*Note 3 . 
TXI SYS)238, l,NUMBERS-OFCHARACTERS-TO-BYPASS 

*Note 3. 

*Note 1 . The TARGET-ED1T-CONTROL and the TARGET-CONTROL-WORD 
are the same format as described under SYS) 185. 

*Note 2. The first character processed under control of this instruction 

is examined for source field sign. 

*Note 3. The last character processed under control of this instruction 

is examined for source field sign. 

SYS)191 TXI SYS)191,1,NUMBER-OPCHARACTERS-TOMOVE 

This is a MOVPAK subroutine used in conjunction with SYS) 183 in moving 
external decimal fields to external decimal fields. 
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SYS)192 TXI SYS)192J f NUMBER-OF-CHARACTERS-TOMOVE 

This MOVPAK subroutine is used in conjunction with SYS) 189 to move edited 
fields to external decimal fields. 

SYS)193 TXI SYS)193J,NUMBER-OF^HARACTERS-TO-MOVE 

This MOVPAK subroutine is used in conjunction with SYS) 185 to move 
external decimal fields to edited fields. 

SYS ) ]94 ^ TXI SYS)194 f l f NUMBERS-OF-CHARACTERS-TOMOVE 

This MOVPAK subroutine is used in conjunction with SYS) 190 to move edited 
fields to edited fields. 

SYS ) 195 TXI SYS)195, UNUMBER-OF-CHARACTERS-TO-TEST-FOROVERFLOW 

This MOVPAK subroutine is used in conjunction with SYS) 189 to move edited 
nciaa ru cxrernQi aecimai rieias. 

SYS ) 196 TXI SYS)196, UNUMBER-OF-CHARACTERS-TO-TEST-FOR-OVERFLOW 

This MOVPAK subroutine is used in conjuction with SYS) 190 to move edited 
fields to edited fields. 

SYS) 197 TXI SYS) 197, 1, NUMBER-OF-CHARACTERS-TO-MOVE 

This MOVPAK subroutine is used in conjunction with SYS) 189 to move edited 
fields to external decimal fields. 

SYS)198 TXI SYS) 198, l,NUMBER-OF-CHARACTERS-TO-MOVE 

This MOVPAK subroutine is used in conjunction with SYS) 190 to move edited 
fields to edited fields, 

SYS)199 TXI SYS)199, 1 # NUMBER-OF-CHARACTERS-TOTEST-FOR-OVERFLOW 

This MOVPAK subroutine is used in conjunction with SYS) 183 to move external 
decimal fields to external decimal fields. 

SY<^?00 TYI CVC\9f>n T Ki! UiDCp r\c /~u Ada /~rrnp t^>. n\/r»* r-r- 

This MOVPAK subroutine is used in conjunction with SYS) 189 to move edited 
fields to external decimal fields. 
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SYS)201 TXI SYS)201, l,NUMBER-OF-CHARACTERS-TO-TEST-FOR-OVERFLOW 

This MOVPAK subroutine is used in conjunction with SYS) 185 to move external 
decimal fields to edited fields. 

SYS)202 TXI SYS)202 / 1,NUMBER-OFCHARACTERS-TO-BYPASS 

This MOVPAK subroutine is used in conjunction with SYS) 190 to move edited 
fields to edited fields. 

SYS)203 TXI SYS)203, 1, NUMBER-OFCHARACTERS-TO-TEST-FOR-OVERFLOW 

This MOVPAK subroutine is used in conjunction with SYS) 189 to move edited 
fields to external decimal fields. 

SYS)204 TXI SYS)204, 1, NUMBER-0F-CHARACTERS404EST-F0R -OVERFLOW 

This MOVPAK subroutine is used in conjunction with SYS) 190 to move edited 
fields to edited fields. 

SYS)205 TXI SYS)205J,NUMBER-OF-CHARACTERS-TO-BYPASS 

This MOVPAK subroutine is used in conjunction with SYS) 183 to move external 
decimal fields to external decimal fields. 

SYS)206 TXI SYS)206 ,1, NUMBER-OF-CHARACTERS-TOBYPASS 

This MOVPAK subroutine is used in conjunction with SYS) 185 to move external 
decimal fields to edited fields. 

SYS)207 TXI SYS)207 / 1,NUMBER-OF-CHARACTERS J TO-BYPASS 

This MOVPAK subroutine is used in conjunction with SYS) 189 to move edited 
fields to external decimal fields. 

SYS)208 TXI SYS)208J / NUMBER-OF-CHARACTERS-TO-BYPASS 

This MOVPAK subroutine is used in conjunction with SYS) 190 to move edited 
fields to edited fields. 



SYS)209 TXI SYS)2Q9J,NUMBER-OF-TRAILING-ZEROS-TCUNSERT 

This MOVPAK subroutine is used in conjunction with SYS) 183 to move external 
decimal fields to external decimal fields. 
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SYS)210 TXI SYS)210, 1, NUMBER-OPLEADING-ZEROS-TCHNSERT 

This MOVPAK subroutine is usee! in conjunction with SYS) 183 to move externa! 
decimal fields to external decimal fields, 

SYS)211 TXI SYS)211 ,1, NUMBER OF-TRAILING-ZEROS-TOHNSERT 

This MOVPAK subroutine is used in conjunction with SYS) 185 to move external 
decimal fields to edited fields. 

SYS)212 TXI SYS)212, 1, NUMBER-OF-LEADING-ZEROS-TCHNSERT 

This MOVPAK subroutine is used in conjunction with SYS) 185 to move external 
decimal fields to edited fields. 

SYS)213 TXI SYS)213, l,NUMBER-OF-LEADING-ZEROS-TOHNSERT 

tL:. iiai/ra i/ -..I !.• _ :. I r_ ~: <.: ...:j.L cvcmoo i« — ~..~ l:i~J 

mo ivwjv r/-\i\ ^uuiuui ific is uscu in cwuj um-i hjii wmi ji j;iu/ iu muvc cui icu 

fields to external decimal fields. 

SYS)214 TXI SYS)214, 1, NUMBER-OF-LEADING-ZEROS-TOHNSERT 

This MOVPAK subroutine is used in conjunction with SYS) 190 to move edited 
fields to edited fields. 

SYS)215 TXI SYS)215, 1, NUMBER-OF-TRAIUNG-ZEROS-TCHNSERT 

This MOVPAK subroutine is used in conjunction with SYS) 189 to move edited 
fields to external decimal . 

SYS)216 TXI SYS)216, 1, NUMBER- OPTRA! LI NG-ZEROS-TCHNSERT. 

This MOVPAK subroutine is used in conjunction with SYS) 190 to move edited 
fields to edited fields. 

iiojti/ iai jr jj^.i'/ i,iNumDcirv/r*vnrti\nv.itRj ivu< jv-min rvyK jioin 

This MOVPAK subroutine is used in conjunction with SYS) 189 to move edited 



SYS)218 TXI SYS)218, l,NUMBER-OFCHARACTERS-TO-5CANH=OR-S!GN 

This MOVPAK subroutine is used in conjunction with SYS) 190 to move edited 
fields to edited fields. 
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SYS)219 TRA SYS)219 Round current character 

This MOVPAK subroutine is used in conjunction with SYS) 183 to move external 
decimal fields to external decimal fields. 

SYS)220 TRA SYS)220 Round current character 

This MOVPAK subroutine is used in conjunction with SYS) 185 to move external 
decimal fields to edited fields. 

SYS) 221 TRA SYS)221 Round current character 

This MOVPAK subroutine is used in conjunction with SYS) 189 to move edited 
fields to external decimal fields. 

SYS)222 TRA SYS)222 Round current character 

This MOVPAK subroutine is used in conjunction with SYS) 190 to move edited 
fields to edited fields. 

SYS)223 TXI SYS)223,1, TARGET-NUMERIC-LENGTH 

This MOVPAK subroutine is used in conjunction with SYS) 183 to move external 
decimal fields to external decimal fields. 

SYS)224 TXI SYS)224, 1, TARGET-NUMERIC-LENGTH 

This MOVPAK subroutine is used in conjunction with SYS) 189 to move edited 
fields to external decimal fields. 

SYS)225 TXI SYS)225,1, TARGET-NUMERIC-LENGTH 

This MOVPAK subroutine is used in conjunction with SYS) 185 to move external 
decimal fields to edited fields. 

SYS)226 TXI SYS)226, 1,TARGET-NUMERIC-LENGTH 

This MOVPAK subroutine is used in conjunction with SYS) 190 to move edited 
fields to edited fields. 

SY5J227 TXJ SYS)227, l,NUMBER-OF-CHARACTERS-TO-MOVE 

This MOVPAK subroutine is used in conjunction wTHi SYS) 183 to move external 
decimal fields to external decimal fields. 
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SYS)228 TXI SYS)228J,NUMBER-OF-CHARACTERS-TO-MOVE 

This MOVPAK subroutine is used in conjunction with SYS) 185 to move external 
decimal fields to edited fields. 

SYS)229 TXI SYS)229J,NUMBER-OF-CHARACTERS-TO-MOVE 

This MOVPAK subroutine is used in conjunction with SYS) 189 to move edited 
fields to external decimal fields. 

SYS)230 TXI SYS)230, 1, NUMBER-OF-CHARACTERS-TOuMOVE 

This MOVPAK subroutine is used in conjunction with SYS) 190 to move edited 
fields to edited fields. 

SYS)231 TXI SYS)231, 1, NUMBER-OF-CHARACTERS-TOJEST-FOR-OVERPUNCH 

This MOVPAK subroutine is used in conjunction with SYS) 183 to move external 
decimal fields to external decimal fields. 

SYS)232 TXI SYS)232, 1, NUMBER-OF-CHARACTERS-TOTEST-FOR-OVERPUNCH 

This MOVPAK subroutine is used in conjunction with SYS) 185 to move external 
decimal fields to edited fields. 

SYS)233 TXI SYS)233, 1, NUMBER-0F-CHARACTERS-T04EST-F0R-0VERPUNCH 

This MOVPAK subroutine is used in conjunction with SYS) 189 to move edited 
fields to externa! decimal fields. 

SYS) 234 TXI SYS)234, 1, NUMBER-OF-CHARACTERS-TO-TEST-FOR-OVERPUNCH 

This MOVPAK subroutine is used in conjunction with SYS) 390 to move edited 
fields to edited fields. 

SYS)235 TXI SYS)235 / l,NUMBER-OF-CHARACTERS-TO-BYPASS 

This MOVPAK subroutine is used in conjunction with SYS) 183 to move external 
decimal fields to external decimal fields. 

SYS)236 TXI SYS)236, l f .NUMBER-OF-CHARACTERS-TO-BYPASS 

This MOVPAK subroutine is used in conjunction with SYS) 185 to move external 
decimal fields to edited fields. 
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SYS)237 TXI SYS)237, 1 , NUMBER-OF-CHARACTERS-TO-BYPASS 

This MOVPAK subroutine is used in conjunction with SYS) 189 to move edited 
fields to external decimal fields, 

SYS)238 TXI SYS)238 ,1, NUMBER-OF-CHARACTERS-TO-BYPASS 

This MOVPAK subroutine is used in conjunction with SYS) 190 to move edited 
fields to edited fields, 

SYS)239 TXI SYS)239, 1 , NUMBER-OF-CH ARACTERS-TO-MOVE 

This MOVPAK subroutine moves alphabetic fields to alphabetic fields. 

SYS)240 TXI SYS)240, 1, NUMBER-OF-CHARACTERS-TO-MOVE 

This MOVPAK subroutine moves alphabetic fields to alphabetic fields with 
additional blank insertion. 

SYS)241 TXI SYS)241 , 1 , NUMBEROF^BLANKS-TO-I NSERT 

This MOVPAK subroutine is used in conjunction with SYS)240 to move alphabetic 
fields to alphabetic fields. 

SYS)242 TXI SYS)242,1, ALPHABETIC-CONTROL *Note 1 . 

PZE CONTROLl,,CONTROL2 

This MOVPAK subroutine moves alphabetic fields to alphabetic fields where 
some information was unknown at compile time. 

*Notel, ALPHABETIC CONTROL 

Bits are placed in the decrement which indicate the following about 
CONTROL1 and CONTROL2. 

OCTAL DIGIT MEANING 

00001 Target fields'.s length is in words (not characters) 

00002 Source field's length is in words (not characters) 
00004 CONTROL2 isfhelocation of the target field's 

length (not length itself) 
000 1C CONTROL! is the location of the source field's 

length (not length itself) 

SYS)243 TXI SYS)243,l,NUMBER-OF-BLANKS-TO-INSERT 

This MOVPAK subroutine moves blanks to an alphabetic field. 
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SYS)244 TXi SYS)244,l,NUMBEfc-OF-ZEROS-TOHNSERT 

This MOVPAK subroutine moves zeros to an alphabetic field. 

SYS ) 245 TXI SYS)245, 1 , NUMBER-OPCHARACTERS-TOH NSERT 

OCT CHARACTERS 

This MOVPAK subroutine moves characters to an alphabetic field. The second 
word contains 6 characters of the type to be moved. 

SYS ) 246 TXI SYS)246, 1, NUMBER-OF-CHARACTERSHN-TARGET-AREA 

This MOVPAK subroutine moves the internal decimal right justified field in the 
AC or AC-MQ to an internal decimal field not justified. 

SYS ) 247 TXI SYS)247 / l,NUMBER-OF-CHARACTERSHN-SOURCE-AREA 

This MOVPAK subroutine moves from an internal decimal field not justified to 
internal decimal right justified in the AC or AC-MQ . 

SYS)248 TRA SYS)248 

TARGET-CONTROL-WORD-TYPE-SD *Note 1 . 

This MOVPAK subroutine converts the floating point AC to scientific decimal . 

*Note 1 . The CONTROL-WORD-TYPE-SD has the following form: 

Prefix = MZE if decimal in pictorial. 

= PZE if no decimal in pictorial. 

Address = Scale applied to mantissa in pictorial. 

Tag is Sign Convention 



= 
= 1 



s mantissa and exponent sign -conventions are both minus. 

f mantissa sign convention is minus and exponent sign convention 

s plus. 

f mantissa sign convention is plus and exponent sign convention 

s minus. 

f both mantissa and exponent sign conventions are plus. 



= 2 
= 3 
Decrement = Total length in characters, of the field. 



709/7090 Commercial Translator 
1 (10/61) 90.02.27 



SYS)249 



SYS) 250 



SYS)251 



SYS)252 



TRA SYS)249 
SOURCE-CONTROL-WORD-TYP^SD 

This MOVPAK subroutine converts from scientific decimal to floating point leaving 
the results in the AC The SOURCE-CONTROL-WORD-TYPE-SD has the same 
form as described under SYS)248. 

TSX SYS)250 / 4 

TARGET-CONTROL- WORD-TYPEHD *Note 1. 

This MOVPAK subroutine converts the floating point value in the AC to internal 
decimal and leaves the results in the AC or AC-MQ . 



SYS) 253 



*Note 1 The form of the CONTROL-WORD-TYPEHD is as follows: 
Prefix 



is the sign of the scale-. 
= PZE for plus. 
= MZE for minus. 



Address = Scale applied to internal decimal value 

Decrement = Numeric length of value. 



\ 

TSX SYS)251,4 
SOURCE-CONTROL-WORD-TYPEHD 

This MOVPAK subroutine converts the internal decimal value in the AC or AC-MQ 
to fating po i nt leaving the results in the AC The SOURCE-CONTROL-WORD- 
TYPEHD has the same form as described under SYS)250. 

TRA SYS)252 

SOURCE-CONTROL-WORD-TYPE-SD 

TARGET-CONTROL-WORD-TYPE-SD 

This MOVPAK subroutine moves a scientific decimal field to a scientific decimal 
field. The CONTROL-WORD-TYPE-SD for both source and target have the same 
form as described under SYS)248. 

TRA SYS)253 

SOURCE-CONTROL-WORD-TYPE-SD 

TARGET-CONTROL-WORD-TYPE-ID 

This MOVPAK subroutine converts a scientific decimal field to internal decimal 
leaving the results in the AC or AC-MQ . CONTROL-WORD-TYPE-SD has the 
same format as described under SYS)248 and CONTROL-WORD-TYPEHD has the 
same format as described under SYS)250. 
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SYS)254 



SYS)255 



SYS) 256 



TRA SYS)254 

SOURCE-CONTROL-WORD- TYPE-ID 
TARGET CONTROL-WORD TYPE-SD 

ThisMOVPAK subroutine converts from internal decimal in the AC or AC-MQ to 
scientific decimal . CONTROL-WORD-TYPE-ID has the same format as described 
under SYS)250 and CONTROL-WORD-TYPE-SD has the same format as described 
under SYS)248. 

TRA SYS)255 
TARGET-CONTROL-WORD-TYPE-SD 

This MOVPAK subroutine converts from double precision floating point in the 
AC-MQ to scientific decimal . The CONTROL-WORD-TYPE-SD has the same 
form as described under SYS)248. 

TRA SYS)256 
SOURCE-CONTROL-WORD-TYPE-SD 

This MOVPAK subroutine converts from scientific decimal to double precision 
floating point leaving the results in the AC-MQ. CONTROL-WORD-TYPE-SD 
has the same form as described under SYS)248. 

TSX SYS)257,4 
TARGET-CONTROL-WORD-TYPE-ID 

This MOVPAK subroutine converts from double precision floating point in the 
AC-MQ to internal decimal leaving the results in the AC or AC-MQ. 
TARGET-CONTROL-WORD-TYPE-ID has the same form as described under SYS)250 

TSX SYS)258,4 
SOURCE-CONTROL-WORD-TYPE-ID 

This MOVPAK subroutine converts from internal decimal in the AC or AC-MQ 
to double precision floating point leaving the results in the AC-MQ. SOURCE- 
CO NT ROI-WORD-TY PF_m k-.c fko *r,rr> a f^^rv, „c rl^^^.U^J u_ c\/c\icn 

SYS)260 This SYS number may appear in a GET calling sequence to the IOCS Read routine- 

TSX !OC)8,-4 

PZE FILENAME, ,SYS)260 

PZE SYS)265,,SYS)283 

IOCDN* BL)NN,,14 

The SYS)260 subroutine prints an error message indicating processing terminated 
due to record length error. 



SYS)257 



SYS) 258 
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SYS)261 TSX SYS)261,4 

TSX SYS)263, 6 
(Normal Return) 

Subroutine SYS)261 converts the logical accumulator from a BCD number to binary, 
checking for non-numeric characters and/or imbedded or trailing blanks; and 
leaves the result in the decrement of the AC. This routine is used in conjunction 
with getting a variable length BCD record from tape where the first word of the 
record gives the remaining length of the record . If an error is detected during 
conversion, return is 1,4 to routine SYS)263 which prints an error message. 

SYS)262 TSX SYS)262,4 

This subroutine converts the binary AC address to a 6 character (with leading 
blanks) BCD word to be used in Filing' a variable length BCD record. The BCD 
word is left in the logical AC. 

SYS)263 TSX SYS)263,4 

This subroutine prints an error message in conjunction with SYS)261 upon GET 
error condition (see SYS)261) and exits to the CT monitor. 

SYS)264 TXL *+5, V; BLOCKSIZE-V 

TSX SYS)264,4 
PZE FILENAME 
OCT STATEMENT-NUMBER 
OCT SUB-STATEMENT-NUMBER 

When the record size (in IR1) exceeds the Blocksize for the file, SYS)264 prints 
a message and exits to the CT Monitor. 

SYS)265 This SYS number appears as part of the GET calling sequence to the IOCS Read 
routine whenever the 'AT END' option is_not used with the GET verb. 

TSX IOC)8,4 

PZE FILENAME,, SYS)260 

PZE SYS)265,,SYS)283 

IOCDN* BL)NN,,14 

SYS)265 prints a message concerning the unexpected end-of-file and exits to 
the CT Monitor. 

SYS)266 TRA SYS)266 

or 
TX! SYS)266,0,0 

This routine performs a 'panic' Close-All- Files and exits to the CT Monitor. 
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SYS ) 267 TXI SYS)267,l,TARGET-EDIT-CONTROL 

OCT TARGET-CONTROL-WORD-BITS 
AXT NLiMBER-OPDiGITS-TO<QNVERT, 1 

This MOVPAK subroutine converts from internal decimal in the AC-MQ to form 
an edited field. The TARGET-EDIT-CONTROL and TARGET<X)NTROL-WOR[> 
BITS have the same form as described under SYS) 185. 

SYS)268 TXI SYS)268, 1,1 

This MOVPAK subroutine converts an edited field to internal decimal leaving the 
results in the AC-MQ. This instruction is followed by two or more of the followina 
instructions: 



SYS) 269 



SYS) 270 



TXI SYS)269, 

TXI SYS)270, 

TXI SYS)271 

t\/i r\/r\o-70 

TXI SYS)273, 

TRA SYS)274 

TXI SYS)275, 

TXI SYS)276, 

TXI SYS)277, 

TXI SYS)278, 

TXI SYS)279, 

TXI SYS)280 / 

TXI SYS)281, 

TXI SYS)282, 



NUMBER-OF-CHARACTERS-TO-CONVERT 

NUMBER-OF-CHARACTERS-TO-TEST-FOR-OVERFLOW 

NUMBERHDF-CHARACTERS-TO-BYPASS 

NUMBER-OPDECIMAL-ZEROS-TO-OEVELOP 

NUMBER-OF-CHARACTERS-TO-5CAN-FOR-5IGN 
Round Current Character 

TARGET-DECIMAL-NUMERIC-LENGTH (end of call 

sequence) 
NUMBER-OF-CHARACTERS-TO-CONVERT *Note 2 
NUMBER-OF-CHARACTERS-TO-TEST-FOR-OVERFLOW 

*Note 2 
NUMBER-OF-CHARACTERS-TO-SYPASS *Note 2 

NUMBER-OF-LEADING-OECIMAL-ZEROS-TO-DEVELOP 
NUMBER-OF-CHARACTERS-TO-CONVERT 

NUMBER-OF-CHARACTERS-TO-TEST-FOR-OVERFLOW 
NUMBER-OF-CHARACTERS-TO-8YPASS *Note 1 



*Note 1 The first character processed under control of this instruction is examined 

for source field sign. 
*Note 2 The last character processed under control of this instruction is examined 

for source field sign. 

TXI SYS)269, 1 , NUMBER-OF-CHARACTERS-TO-CONVERT 

TMa^ny/Pit'cni,^..*: :. i ?.. .. • .. ... — 

..... --.x u.... e .3 u SCU in con|uncTion wirn sy^/OB to convert an edited 

field to internal decimal . 

TXI SYS)270, l,NUMBER-OF-CHARACTERS-TO-TEST-FOR-OVERFLOW 

This MOVPAK subroutine is used in conjunction with SYS)268 to convert an edited 
field to internal decimal. 
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SYS)271 TXI SYS)271 / l,NUMBER-OF-CHARACTERS-TO-BYPASS 

This MOVPAK subroutine is used in conjunction with SYS)268 to convert an edited 
field to internal decimal. 
SYS)272 TXI SYS)272, 1, NUMBER-OF-DECIMAL-ZEROS-TO-DEVELOP 

This MOVPAK subroutine is used in conjunction with SYS)268 to convert an edited 
field to internal decimal . 

SYS)273 TXI SYS)273, 1, NUMBER-OF-CHARACTERS-TO-SCAN^OR-SIGN 

This MOVPAK subroutine is used in conjunction with SYS)268 to convert an edited 
field to internal decimal. 

SYS)274 TRA SYS)274 Round Current Character 

This MOVPAK subroutine is used in conjunction with SYS)268 to convert an edited 
field to internal decimal . 

SYS)275 TXI SYS)275, 1, TARGET-DECIMAL-NUMERIC-LENGTH 

This MOVPAK suvroutine is used in conj unction with SYS)268 to convert an edited 
field to internal decimal . 

SYS)276 TXI SYS)276 / 1, NUMBER-OF-CHARACTERS-TO-CONVERT 

This MOVPAK subroutine is used in conjunction with SYS)268 to convert an edited 
field to internal decimal. 

SYS)277 TXI SYS)277, 1, NUMBER-OF-CHARACTERS-TO-TEST-FOR-OVERFLOW 

This MOVPAK subroutine is used in conjunction with SYS)268 to convert an edited 
field to internal decimal . 

SYS)278 TXI SYS)278J,NUMBEI*OF-CHARACTERS-TO-BYPASS 

This MOVPAK subroutine is used in conjunction with SYS)268 to convert an edited 
field to internal decimal . 

SYS)279 TXI SYS)279, 1, NUMBER-OFLEADING-DECIMAL-ZEROS-TODEVELOP 

This MOVPAK subroutine is used in conjunction with SYS)268 to convert an edited 
field to internal decimal. 
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SYS)280 TX! SYS)280, 1, NUMBER-OPCHARACTERS-TO-CONVERT 

This MOVPAK subroutine is used in conjunction with SYS)268 to convert an edited 
field to internal decimal . 

SYS)281 TXI SYS)281, 1, NUMBER-OF<HARACTERS-TO-TEST-FOR-OVERFLOW 

This MOVPAK subroutine is used in conjunction with SYS)268 to convert an edited 
field to internal decimal . 

SYS)282 TXI SYS)282,l,NUMBE*-OPCHARACTERS-TO-BYPASS 

This MOVPAK subroutine is used in conjunction with SYS)268 to convert an edited 
field to internal decimal. 

SYS)283 This SYS number appears as part of a GET calling sequence to the IOCS Read 

routine whenever the 'ON ERROR' option in not used in the Environment description 
of the file . ~~~ 

TSX 1008,4 

PZE FILENAME, , SYS) 260 

PZE SYS)265,,SYS)283 

IOCDN* BL)NN,,14 

SYS)283 prints a message concerning the GET error and exits to the CT Monitor, 
SYS)286 TSX SYS)286,4 

This subroutine performs a hollerith to BCD conversion on the record located by 
locator word SYS)287 and places the BCD record in SYS)288. 

SYS)287 This SYS number appears as part of the calling sequence to GET a record from the 
on-line card reader and convert the record to BCD. 

TSX 1008,4 

PZE FILENAME, , SYS) 260 

PZE SYS)265,,SYS)283 

IOCDN* SYS)287,,24 

SYS)287 is a pointer word which serves to locate the record for the hollerith to 
BCD conversion routine, SYS)286. 

SYS)288 This is a 12 word area used in conjunction with SYS)286 in converting a hollerith 
image to BCD. 
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SYS)291 This SYS number may appear as a part of the 'Filing' sequence to the IOCS 
Write routine. 

TSX 1009,4 

PZE FILENAME,, SYS)291 

IOCDN* *+l,,24 

SYS)291 appears only in Write sequences to File a record on card equipment ^ 
(Locating Mode). The routine, when entered, prints an error message and exits 
to the CT Monitor. 

SYS)292 TSX SYS)292,4 

PZE RECORD LOC,, RECORD-LENGTH 
(Partial Conversion Exit) 
(Total Conversion Exit) 

This subroutine converts a record located at RECORD-LOC from BCD to hollerith 
for 'Filing' on card equipment. 

SYS)294 LAC BL)NN, N 

TXL SYS)294,N,0 

This subroutine prints an error message whenever a reference is made to a Base 
Locator before the locator has been loaded, and exits back to the CT Monitor. 

SYS)296 This SYS number appears; as part. of :the calling sequence in 'Filing' a record on 
card equipment, 

TSX IOC)9,4 

PZE FILENAME 

IOCDN* *+l,,24 

AXT 0,4 

SXA SYS)296,4 

SYS)296 is a pointer word within subroutine SYS)292 which locates the buffer to 
be used in the BCD to hollerith conversion. 
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APPENDIX 90.03 



RELATIVE BINARY PROGRAM DECK 



INTRODUCTION 



This section defines the deck order and format of the debugging dictionary, 
control break table, file check table, and text. Additional information 
pertaining to these items will be found in the section on the Loader (03.00) 
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A. General Description of Binary Load Decks 

1 . Binary Card Format 

The 22 word columnar binary card form is used. 

Word 1 S, 1 11 (relative deck indicator) 

2 checksum control bit 

= verify checksum 

1 = do not verify checksum 

3 1 (Commercial Translator) 

4 

5-7 deck type 

8-12 01010 

13-17 word count (beginning with word 3) 

18-20 000 

21-35 card sequence number 

Word 2 logical sum of word 1 and all data words on the card. 

Words 3-24 data 

2. Binary Decks 

Each section of the binary deck (e.g., Control Break Table, Text) is sequenced 
independently, beginning with sequence number 0. Any section except the text 
can be missing under certain conditions. Within any section, the cards must 
be in proper sequence, and the sections themselves, if present, must be in order 
by deck type . 

The deck type codes, which appear in word 1, bits 5-7, are as follows: 

001 debugging dictionary 

010 control break table 

011 file check table 
100 text 

The debugging dictionary is not implemented in the initial release. 

The binary portion of the proqram deck is limited bv thp *CTFYT nn A *rrcKir\ 
cards . 

>• FILE CHECK Table 

1 . Introduction 

The File Check Table, if present, is used to validate the contents of 
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the generated File Block and the assignment of each file to a Buffer Pool and to 
transmit the location of any non-standard label routines to the IOCS System. File 
type, mode, allowable l/O units and blocking requirements are among those items 
which may be assumed as unchanging by the generated object program and hence 
are recorded in File Check Table to insure that the user does not change these via 
modification of *FILE cards and *SPEC cards. 



2. Card Format 



Word 1 - standard 9l_ format text type 011. 
Word 2 - checksum 

3-4 - file check entry i 

5-6 - file check entry i + 1 

etc . 

etc. 

etc . 



3. File Check Entry Specifications 



Two words of text are required for each file referenced in a program. 
Their format is: 

Bit Content 



1st word of file 


S 


If = 1, mixed mode file 


check entry 


1-5 







6 


If = 1, binary mode 
= 0, BCD mode 




7-8 


If = 00, Input 
= 01, PTO 
= 10, TTO 
= 11, Checkpoint 




9-17 







18-20 


If = 001 Card equipment only 

010 Tape drive only 

011 Either tape or card allowable 




21-35 


File reference number 


2nd word of file 


S 


If = 1, this is last entry of the File 


check entry 




Check Table 




1-2 







3-17 


or relative loc non-standard label 
routine 




18-20 


If = 000 N= blocksize 
If = 001 N ± blocksize 
If = 010 N = blocksize a multiple of N 




21-35 


N 
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C- Control Break Table 

"I . Introduction 



One entry is generated by each CONTRL entry in the Environment section. An 
entry occupies a pair of words, the first pair on a card beginning with word 3. 
Up to eleven entries can be placed on a card. 

Format 

Word 1 BCI l,Name 
Word 2 P L, , N 

where P = PZE real control break 

= PTW virtual control break 

L = relative location of the beginning of the control break 
N = iength of the control' break in words (may be 0) . 

All cards except the last must be full . The sign of the second word of the last 
entry is negative (P = MZE or MTW) . 

Control break table entries are ordered first by increasing relative location, and 
within this ordering by increasing length. 



D. Text 

1 . Format 



Words 3,4 and 5 of a text card are used for up to 19 5-bit control groups, one 
for each following data word on the card. The sign bits of these control words 
are not used, and the control groups are given in sequence, up to 7 groups per 
word. 

The information in the Text deck corresponds exactly to that shown on the 
assembly listing under the columns "OCTAL" and "CNTRL". 

The first bit of a control group distinguishes between two basic word types: 

1 standard data word 
special entry 
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2. Special Entries 

00000 end of card (no data word is associated with this entry) 

01111 end of text; the address of the corresponding data word contains the 

relative program entry point. 

00010 system reference point; the address of the corresponding data word 

is the system reference number. Such an entry is generated by the 
appearance of a SYS pseudo-op in CRYPT, and is used to define 
reference points in object time subroutines. 

00001 location counter control entry; the data word is of the form 

OP A 

OP = PZE A is an absolute origin 

PTW fixed length BSS of length A. 

= PTH variable length BSS;- the variable field follows 

as a complex expression. A is the length 
assumed for assembly. 
= MON A is a relative origin. 

01 110 the corresponding data word is an immediate operator. Such an 

entry occurs only in 2TEXT . 

Codes 0001 1 through 01 101 are not assigned. 

3. Standard Word 

The control group is of the form 1 AB CD, where 

AB = 00 constant decrement 

= 01 relative decrement 

= 10 the decrement is a system reference 

= 1 1 the decrement is represented by a complex expression 

CD has the corresponding code values describing the address. The prefix and 
tag of a standard word are constant . 
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4. System References: 




Each of these references is a 15-bit code. The high-order bits are used to 
distinguish between types of reference, while the low-order part of the field 
gives the reference number. 

The reference type codes are: 

system reference (11-bit system reference number follows), 
file reference (1 1-bit file index number follows) . 

these codes are not assigned . 

external name table reference. This occurs only in 2TEXT, and is 
followed by 13 bits giving the relative location of an entry in the 
External Name Table during loading. 

5. The decrement or address, or both, of a data word can be represented by a complex 
expression . This expression consists of a string of one or more words, each with a 
corresponding control group, following the data word. If both the decrement and 
address are complex, the decrement occurs first. 

Each word of a complex expression has the form 

OP A,B,C 

where 

OP = PZE + 
= PON 

= PTW * 

= PTH / 

The control group has the same form as that for a standard word, with the 1 1 code 
changed to mean a result storage cell. Six such result storages (0, 1, . . .,6) are 
used for intermediate results during the evaluation of a complex expression. 

A word in a complex expression is to be interpreted as 

A OP C -> B 

where B is the result storage cell into which the result is to be placed. The 
complex expression is terminated by a word for which B = 7. 
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6. Immediate Operator 



In 2TEXT, during loading, an immediate operator word can precede a standard word 
or a word in a complex expression. The immediate operator has the form 

P A,T,D 

A and D are constants. P and T have the form-+ OP, where OP represents any of 
the operator codes for a complex expression. The sign determines the order of 
operands. The meaning of this operator can best be described by an example: 

S OP D S OP A Operator 

P' D' T' A' Data Word 

will cause a word to be formed (assuming S 1 and S- are + ): 

P' D OPj D' T' A OP A' 

If S or S or both are minus, the corresponding operands are reversed. 
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APPENDIX 90.04 
ERROR MESSAGES AND SEVERITY CODES 
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A . Error Messages 



0,00 





1,00 





2,00 





3,00 





4,00 





5,00 





6,00 





7,00 





8,00 





9,00 






In the foiiowing list of error messages the code number is '0' because the value may 
vary. One of the severity values 1 through 5 will actually be printed with the 
error message. 

DATE 01/31/62 TIME 
THE FOLLOWING ERRORS WERE DETECTED DURING COMPILATION- 
NUMBER CODE MESSAGE 

ERROR MESSAGE NOT YET IN FILE. 

-FILE- CARD LACKS NAME IN COLUMNS 7 THROUGH 22. 
-RUN- DELETED. ITS USE IS RESTRICTED TO PROCESSOR 
-OPTION- CARD FORMAT ERROR. fKULbbbOR. 

-COND- CARD FORMAT ERROR. 

RECORD LENGTH 24 OF 'NAME.2' EXCEEOS -NAME.!' -BLOCKSI2E- 12. 
-FILE- CARD MUST HAVE -SPANS-. i-m^nc li. 

«"£; , :«&:i. ,, s;,*.?S"i Sti-'iife CHE " °" A ™" l '° hm - -«• 

CHECK EN.VIR r, ! u * ,c,L, ' r ««-«-»■'»»'•■•■- * 

10,00 RECORD 'NAMeI^'mUST BE°On' An'i'nPUT -FILE- CARD 
,, „ CHECK ENVIRONMENT DESCRIPTION. 

u.oo o ««?- c ;««;- N »MNor E B L 0N Tr a« r„. N „ M , WUT _ FIlI _ C4R0 . 

' NC c 2"cr E !;» S f„SL^ E T T D ^S?rJSr- CA " N0T MtH """ E " K »"> ""»»• 

•NAME.l' FILE LACKS RECORD NAME IN -FILE- CARD 

OR NO CORRESPONDING RECORD NAME IS IN DATA DESCRIPTION 
INCORRECT USE OF -GET RECORD FROM-. 'NAME.!' IS NOT AN J^UT FILE 

CHECK ENVIRONMENT DESCRIPTION. RE " 

•NAME.l' FILE LACKS RECORD NAME IN -FILE- CARD 

•NAMF P? k R !!" P ^L N S REC0R ° N * ME IS IN DATA DESCRIPTION. 

•NAME. 2- IS NOT A RECORD. CHECK DATA DESCRIPTION. 

•NAME. 2' MUST BE RECORD NAME IN -FILE- CARD. 

ILLEGAL INTERNAL CONDITION. NOTHING OONE. POSSIBLE COMPIIFR FRono 

RECORD 'NAME.2' MUST BE ON AN OUTPUT -FILL- CARD C ° HPILER ERR ° R - 

CHECK ENVIRONMENT DESCRIPTION OR NAME. 
BINARY DATA CANNOT BE OUTPUT ON BCD TAPE. 
•NAME.l' IS NOT A FILE. CHECK ENVIRONMENT nESCRIPT'ON 
•NAME.l' IS NOT AN OUTPUT FILE. CHECK ENVIRONMENT DESCRIPTION 

OPERATION IGNORED BECAUSE 'NAME.1' HAS IMPROPER DATA FORMM 

( E A(2) ) FOR THIS USE. 
OPERATION IGNORED BECAUSE 'NAME.l- IS ILLEGAL TRANSFER ADnRF<;<; 
S?™^ "NERATED "HICH LOSES ALL SIGNIFICANT FIGURES^ "• 

E w I IS!0N 8V Z£K ° B¥PAS SEO. RESULT TAKEN TO BE ZERO. 
ILLEGAL INTERNAL CONDITION. NOTHING DONE. POSSIBLE COMPIIFR FRROR 
FUNCTION 'NAME.l' LACKS EXPLICIT SPECIFICATION OF ALL ARHImJ^ 
SUBSCRIPT VARIABLE 'NAME.l' MUST BE AN INTEGER. AGENTS. 
MODE ANO DATA DESCRIPTION CONFLICT. 'NAME.l- FORMAT USED 

•SAM E "" B FORMl? N H?Fn FORMAT CHARACTERS ' CHE « DATA DESCRIPTION. 
MAXIMUM FORMAT CHARACTER COUNT EXCEEDED. 'NAME.l' FORMAT llSFn 
MAXIMUM NUMERIC LENGTH EXCEEDED. 'NAME.l' FORMAT USEd" 

DAT ?MFr/? R ,?uI DESCRIPTI ™ LEVEL CANNOT HAVE SUB-ORGANIZATION. 
LHfcCK 'NAME. 1 ' . 

FORMAT ERROR FOR CONDITIONAL VARIABLE. 'NAME.l' FORMAT USED. 
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CONDITIONAL VARIABLE CANNOT HAVE -QUANTITY-. r „ c ,. TCtcn AC olrHT , IKTI(:lFn 
DATA NOT ON FORMAT DESCRIPTION LEVEL CANNOT BE SPECIFIED AS RIGHT JUSTIFIED. 
-REDEF- TO 'NAME.!' CANNOT OCCUR BEFORE DEFINITION. 
NAME ASSOCIATED WITH -REDEF- OR -QUANTITY IN- IS UNDEFINED. 

C D O^ANT\ANNrL L SoaAT^D C Wir-RED;;- OR INPUT RECORD, OR PRECEDED BY VARIABLE LENGTH FIELD. 
UNSPECIFIED MAXIMUM QUANTITY ASSUMED TO BE 1 FOR STORAGE ALLOCATION. 

'NAME.l' IS -COND- TYPE AND CANNOT BE 

ASSOCIATED WITH -REDEF- OR -QUANTITY IN-. 

•NAME.l" IS NOT DATA NAME AND CANNOT BE 

NO RECORDS SPECIFIED IN -PATTERN- ON -FILE- CARD FOR 'NAME.l . 
SINGLE RECORD IN THE -PATTERN- ON -FILE- CARD 

FOR 'NAME.!'. INEFFICIENT PROGRAM PRODUCED. 
NUMBER OF RECORDS IN -PATTERN- CANNOT EXCEED 16. 
CONFLICT BETWEEN LENGTH OF CONSTANT AND PICTORIAL OF 'NAME.l . 
MAXIMUM NUMERIC LENGTH EXCEEDED FOR CONSTANT OR L ,I T tR*L. 
INCORRECT USAGE OF PERIOD, SIGN, OR F FOR CONSTANT OR LITERAL. 
ILLEGAL CHARACTER FOR CONSTANT OR LITERAL. 

FLOATING POINT OVERFLOW, IN CONVERTING CONSTANT OR LITERAL. 
FLOATING POINT UNDERFLOW IN CONVERTING CONSTANT OR LITERAL. 
CONSTANT CANNOT BE GIVEN FOR EDITED TYPE FIELD. 
CONSTANT OF EXTERNAL DECIMAL TYPE IN ERROR. CHECK 'NAME.l'. 
CONVICT BETWEEN LENGTH OF ALPHABETIC CONSTANT AND PICTORIAL. 
ZERO COUNT IN PICTORIAL REPLACED BY ONE. 
OPERATION DEFINED AS NAME OR FOUND IN NAME FIELD. 
PREVIOUS CARD NOT PROPERLY TERMINATED. PERIOD ASSUMED. 
NEITHER -ADD- NOR -MOVE- PRECEDES -CORRESPONDING- 
CANNOT -END- SECTION WHEN NONE ARE OPEN. 
CANNOT -END- SECTION 'NAME.!' 

BEFORE SECTION 'NAME. 2'. 
ONE OR MORE SECTIONS NOT CLOSED. mmmfott FTFin 

THERE IS AN ILLEGAL NON-NUMERIC CHARACTER IN THE NUMERIC FIELD. 
EVALUATION IGNORED FOR FUNCTION 'NAME.l'. 

ILLE GAL M rNTERNAL M CODE S 'nAMe! l^SENT TO ASSEMBLY. POSSIBLE COMPILER ERROR. 

CHECK ARR-AY OF ELEMENTS, 'NAME.l', FOR NUMER OF DIMENSIONS. 

INVALID FORMAT FOR SUBSCRIPT VARIABLE IN ARRAY OF ELEMENTS, 'NAME.l . 

TOO MANY -USING- PARAMETERS IN -DO- STATEMENT. 

TOO FEW -USING- PARAMETERS IN -DO- STATEMENT. 

TOO MANY -GIVING- PARAMETERS IN -DO- STATEMENT 

TOO FEW -GIVING- PARAMETERS IN -DO- STATEMENT 

FORMAT ERROR FOR LOOP CONTROL VARIABLE 'NAME.l'. „,.„,,, 

FORMAT ERROR FOR PARAMETER 'NAME.l' OF LOOP CONTROL VARIABLE. 

FORMAT ErX FOR LITERAL PARAMETER OF LOOP CONTROL VARIABLE 'NAME.l'. 

<;iin<;rRlPT VARIABLE 'NAME.l* MUST BE OF NUMERIC TYPE. 

CONFMCT BETWEEN JUSTIFICATION AS GIVEN BY ORIGINAL DEFINITION AND -REDEF-. 

CONFLICT BETWEEN LEVEL AS GIVEN BY ORIGINAL DEFINITION AND -REDEF-. 

INCORRECT USAGE OF FIGURATIVE CONSTANT. 

INVALID FORM OF -DO- STATEMENT. 

ILLEGAL MOVE - FROM 'NAME.l* t E A(2) ) 
TO 'NAME. 2* t IR 999 ). NOTHING DONE . 

PFRMANENT READ ERROR IN PHASE 2. COMPILATION SUSPECT. 

DIFFICULT TO PROGRAM KEY SETTING. CHECK ENVIRONMENT DESCRIPTION. 



DATE 01/31/62 TIME 

88*00 n P S BL ™° GRAM C0NTINU > T * ERROR. PROGRAM FLOWS INTO .DATA. 

89*00 o "c?^ ™ LACKS NAME IN C0LUMNS 7 THR °UGH 22. 
89,00 -FILE- CARD FORMAT ERROR. 

90,00 THIS ENVIRONMENT TYPE NOT YET PROCESSED BY THMPIIFP 

91,00 NUMERIC INTEGER MUST FOLLOW -BLOCKSIZE- IN THE -FIL^ r*»n 

92,00 STATEMENT OR SECTION NAME MUST FOLLOW -ONERROR- IN T*F pmf taoh 

93,00 STATEMENT OR SECTION NAME MUST FOLLOW -FORLABEL- IN TH£ -Fill "clz'r 

94,00 DATA NAME MUST FOLLOW" -PLACE LENGTH IN- I T -F P « A * 

«.00 DATA NAME MUST FOLLOW -FIND LENGTH IN- llV^-J^r^ 

''^ ° ,HEKE IS AN ILLEGAL WORD IN THE -FILE- CARD." '"'" 

97,00 INVALID -CORRESPONDING- STATEMENT. 

qq'ho n o»n^ K ° ATA DESCR I p TION OF ARRAY OF ELEMENTS, 'NAME.1'. 

„.oo „ '«^.«^ e c»j, B , r ,_j r ,. p»„ GR . H ,„» ?,,;„• S ,. IEME(1T , SECTIM 

102,00 NAME OF NUMERIC TYPE MUST FOLLOW -QUANTITY IN- 
•NAME.l' IS ALPHABETIC TYPE. 

}S:S S ^£^^^^^^i^^^^^ --. 

lnK „„ „ LEVELS MAY AFFECT POSITIONING ADVERSELY. 

105,00 -QUANTITY- ITEM 'NAME.l' CANNOT FOLLOW VARIABLE FIELD WHICH 
DEPENDS ON THE -QUANTITY- ITEM ITSELF. 
STATEMENT OR SECTION NAME MUST FOLLOW -AT END-. CHECK 'NAMF l« 
.ILLEGAL COMPARISON STRUCTURE. NAME.l . 

•NAME.!' IS AN UNDEFINED SYMBOL. 

•NAME.l* HAS IMPROPER DATA FORMAT FOR THIS USE IN THE 

-FIND LENGTH IN- OPTION. 
112,00 -NAME.l' HAS IMPROPER DATA FORMAT FOR THIS USE IN THE 

-PLACE LENGTH IN- OPTION. 
113,00 REDUNDANT RIGHT PARENTHESIS ELIMINATED 
114,00 REDUNDANT LEFT PARENTHESIS. 
115,00 INVALID MACHINE OPERATION. 
116,00 MISSING OPERAND ASSUMED TO BE ZERO. 
117,00 -FIND LENGTH IN- OPTION iKtn uttu cnuc o.. T .,„-. ... „ .... 

,,» o„ „ „ ■?*" e - 1, «*«ews5 '■»";"-;« ■kK™"™;.": "" " r '"' K "- U " us bei -°" c "" : to t « *»•* 

-'»«^;«™ * e ^« u«y.m JJ. JUT*! «L L „ F ,« «c„,os , a „« IB5 ,o « P,« 

INCOMPLETE -MOVE- EXPRESSION. 

'NAME.l' ELIMINATED FROM ADD 8ECAUSE OF IMPROPER DATA FORMAT I F & r ?i i 

-^m^sss S5 E ; ."js sr;,r * i ° f ™ "«-» -«i« « ™ »« 

INCOMPLETE STATEMENT DELETED FROM TEXT. 

CANNOT USE VARIABLE LENGTH ITEMS FOR COMPARISON. 

ILLEGAL INTERNAL CONOITION. NOTHING DONE. POSSIBLE COMPILER ERROR 

STATEMENT WITHOUT PROPER VERB DELETED FROM TEXT UUMPILER ERR0R " 

STATEMENT WITH MORE THAN ONE VERB DELETED FROM TEXT 

TRANSFER BYPASSED BECAUSE 'NAME.l' IS NOT A STATEMENT OR SECn-V, na*f 

TRANSFER BYPASSED BECAUSE 'NAME.l- IS A 5>cCI^ .«Mt. 

STATEMENT OR SECTION NAME ADDRESSED BY A -DO- 
FORMAT ERROR FQK TRANSFER INOFX, NOTMKvr, nn*j<= 
FRANSFE* INDEX NOT AN INTEGER. INTEGRAL PARt'tAKEN AS VALUE 
INVALID DISPLAY STATEMENT. VALUt. 
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DATE 01/31/62 TIME 

132 00 END OF FILE ON JOB TAPE WITHOUT *FINISH CARD. 

133,00 NO RIGHT PARENTHESIS IN FORMAT PICTORIAL. cvtcbma, tpyt «v t 

134 00 ILLEGAL CHARACTER REPLACED IN INTERNAL TEXT BY 0, AND IN EXTERNAL TEXT BY $. 

l« 00 PERMANENT READ ERROR FOR INPUT. DUBIOUS COMPILATION. 

1^'no REDUNDANCY WHILE WRITING EXTERNAL DICTIONARY. DUBIOUS COMPILATION. 

l^OO rIdUNOANCY WHILE READING EXTERNAL DICTIONARY. DUBIOUS COMPILATION. 

138 ,00 FILE NAME SHOULO FOLLOW -CLOSE-. 

139.00 FILE NAME SHOULD FOLLOW -OPEN-. ,.„„„,, .t.™ 

140 00 INTERNAL TEXT SYNCHRONIZATION FAILURE. DUBIOUS COMPILATION. 

14l'.00 MORE THAN ONE -PROGRAM. START-. FIRST USED. 

\l-> nn -PROGRAM. START- MUST BE A STATEMENT OR SECTION NAME. 

ltl:SS -PROGRAM.START- CANNOT BE A STATEMENT OR SECTION NAME ADDRESSED BY A -DO-. 

144,00 ILLEGAL ENVIRONMENT CARD TYPE. 

145,00 MISSING ADDRESS. 

146,00 MISSING TAG. 

i:i:°0°0 r E NGTH G OF E ALPHABETIC CONSTANT EXCEEDS INTERNAL TABLE CAPACITY AND SHOULD BE SUBDIVIDED. 

ill 00 NUMBER OF SECTIONS IN PROGRAM EXCEEDS INTERNAL TABLE CAPACITY. 

150,00 ALPHABETIC LITERAL EXCEEDS 50 CHARACTERS. 

151,00 VFD IS NOT YET HANDLED BY SYSTEM. 

152,00 <NAME.1« SHOULD NOT BE USED AS DATA NAME. 

153.00 -SPECIF- CARD FORMAT ERROR. 

154,00 FILE NAME MUST BE FIRST ITEM IN VARIABLE FIELD. 

155,00 ALPHAMERIC LITERAL MUST FOLLOW -UNIT-. 

156,00 ALPHAMERIC LITERAL MUST FOLLOW -SERIAL-. 

157,00 ALPHAMERIC LITERAL MUST FOLLOW -REEL-. 

158,00 NUMERIC INTEGER MUST FOLLOW -RETAIN-. 

1SQ 00 NUMERIC INTEGER MUST FOLLOW -ACTIVITY-. . r . rrnc 

160,00 ALPHABETIC LITERAL FOLLOWING KEY WORD CANNOT EXCEED 6 CHARACTERS. 

16l'.00 -POOL- CARD FORMAT ERROR. 

162,00 NUMERIC INTEGER MUST FOLLOW -BLOCKSIZE- ON -POOL- CARD. 

163,00 NUMERIC INTEGER MUST FOLLOW -BUFFERCOUNT-. 

164,00 -GROUP- CARD FORMAT ERROR. 

165,00 NUMERIC INTEGER MUST FOLLOW -OPENCOUNT-. 

166,00 -NAME.!' IS NOT UNIQUE IN THIS SECTION. 

167,00 SECOND QUOTE MARK MISSING. 

\IVZ I JEe" 1C p R oJ™CO E »SlYlK."S«« .LOWS INTO OeMBUTED CONSENTS. 

ViVZ S SKS5 ITlliZll^ Xl SS^^SS; w ». s E » EE »c E „ EL£EE0 ™„ ™„. 

172.00 CONSTANT POOL OVERFLOW. 

17* nn n REFERENCE MADE TO NON-EXISTENT SYSTEM GENERATED NAME. 

\]l\lo REFERENCE TO SYSTEM SUBROUTINE LACKS PROPER NUMBER. ZERO ASSUMED. 

175,00 NO -STOP RUN- IN PROGRAM. 

llilSS S K™ "S^sm" «pr E s SI o»s u SE „ «c E£ ds .nt^jl ,.au c.P.cm. 

184J00 NUMBER OF SUBSCRIPTED NAMES USED EXCEEDS INTERNAL TABLE CAPACITY. 

!S;SS DAT: ^R S ^VIROrMENT C F^D L FIELD R :NFOR M ATION SHOULD BE PUNCHED IN ONLY THE FIRST CARD 
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DATE 01/31/62 TIME 

r nn n ™J^/ MULTIPLE CARD GROUP. POSSIBLE CONTINUATION CHARACTER ERROR. 
r,00 CONDITIONAL EXPRESSION TEST CAPACITY EXCEEDED. 

•NAHE^lJ^ADnRF^F^RvT nn PAR ?I\c^ RESSI0NS * EACH WI ™ RLEGAL SENTENCE STRUCTURE NOTHING DONE. 
NAME.l', ADDRESSED 8Y A -DO-, IS NEITHER A STATEMENT NOR A SECTION NAME. 

EXTERNAL MODE SUBSTITUTED FOR ILLEGAL MODE CHARACTER. 

FIELD IS NOT JUSTIFIED BECAUSE OF ILLEGAL JUSTIFICATION CHARACTER. 
'NAME.l' IS NOT PROPERLY DEFINED. 

SENTENCE STRUCTURE ERROR. POSSIBLE ILLEGAL USE OF A KEY WORD. 

LIMIT OF 63 FILES EXCEEDED. 
19<s,00 DATA NAME LACKS LEVEL. 
195,00 CANNOT FILE RECORD 'NAME. 2' IN THIS FILE, 

•NAME.l', BECAUSE ENVIRONMENT FILE CARD LACKS THIS RECORD NAME. 

ILLEGAL SENTENCE STRUCTURE NOTHING DONE. 

RECORD NAME MUST PRECEDE DESCRIPTION- OF RECORD. 

NO RECORDS PROCESSED IN FILE 'NAME.l' 

UPSCALE MAY CAUSE HIGH ORDER TRUNCATION FOR STORE INTO 'NAME 1' 

NUMBER OF VARIABLE LENGTH FIELDS EXCEEDS INTERNAL TABLE CAPACITY. 

NUMBER OF NESTED LEVELS IN -NAME.l' EXCEEDS INTERNAL TABLE CAPACITY. 

NUMBER OF DATA GROJJPS ASSOCIATED WITH BASE LOCATOR EXCEEDS INTERNAL TABLE CAPACITY 

NUMBER OF ARRAYS EXCEEDS INTERNAL TABLE CAPACITY. INltKNAL TABLE CAPACITY. 

NUMBER OF DIFFERENT EDIT FIELDS EXCEEDS INTERNAL TABLE CAPACITY. 

INTERNAL TABLE OVERFLOW. REDUCE DUPLICATE USAGE OF SUBSCRIPT VARIABLE NAMES 

•NAME.l' HAS INEFFICIENT FORMAT FOR SUBSCRIPT VARIABLE. ¥AKlflBLE NAMES. 

-CONTRL- NAME MUST BE UNIQUE AND 6 CHARACTERS OR LESS. 

SENTENCE CANNOT START WITH -OTHERWISE- 

•NAME.l' HAS INSUFFICIENT BLOCKSIZE. BLOCKSIZE USED IS 

SEVERITY LIMIT WAS NOT REACHED 
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B. Severity Codes 



The Severity Codes (values) are numbered 1 through 5. The least severe errors have 
a code of 1 . The most severe errors have a code of 5. The ascending sequence, 
2, 3, and 4 indicates the degree of severity between the least and most severe 
errors, 1 and 5 . 

An error severity code of 1 does not prevent the running of the object program 
immediately after compilation. Any code above 1 does prevent running of the object 
program immediately after compilation. That is, the compiler will not compile and go, 

An error severity code of 5 causes the compiler to stop compiling. It then proceeds 
to the next job. 
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APPENDIX 90.05 



SAMPLE PROBLEM 



INTRODUCTION 

This section defines a sample problem and gives actual results from compilation 
and execution of the problem. 
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90.05 Sample Problem 

A. Introduction 

The following sample problem is provided to illustrate various features and 
characteristics of the Commercial Translator system. The problem presented 
here is essentially the example described in the Commercial Translator 
General Information Manual . Modifications of two types have been made: 
those which were necessary for operation on the 7090, and those which improved 
the organization and efficiency of the problem. 

B. General Problem Statement 

The problem presented here is a simple payroll application. A master file and 
a detail file containing records for each employee are input and matched. A 
check, an updated master record, and possibly a bond order, are output for each 
master-detail match. An error notice is given for unmatched masters or details. 
In addition to individual Day records, the novrnll rpnKfor kmA„^~a . — *„:-, 
departmental totals and a final summation of the run. 

C. The MASTER File 

For each employee on the payroll there is in the master file a record containing 
indicative information such as name, rate of pay, and number of exemptions. 
Accumulated year-to-date totals are also carried in the record. 

^ Data Description 



r* 



Data Description entries detail the structure of individual records and the 
formats of component fields. The fields which are used in arithmetic 
expressions are maintained in internal format; right justification is specified 
for increased operating efficiency. 

The smallest unit of information which may be described by a Data 
Description entry and referenced by a procedure statement is the character 

composed of six bits. Individual hlK mm/ n«t k e A^^xU^A ~- -«c i ?_ 

the language of Commercial Translator. The 9's which describe a field in 
internal mode inform the processor of the largest magnitude a field may attain 
and of the number of words (when R is specified) or the number of characters 
(when L or no justification is specified) required to contain the field. 

Master records on tape or in storage occupy 709/7090 words in the 
following manner: 
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Word 1 EMPLOYEE . NUMBER 

Word 2 first 6 characters of NAME 

Word 3 second 6 characters of NAME 

Word 4 last 3 characters of NAME 

Word 5 RATE 

Word 6 DATE 

Word 7 EXEMPTIONS 

Word 8 GROSS 

Word 9 RETIREMENT 

Word 10 INSURANCE 

Word 1 1 FICA 

Word 12 WHT 

Word 13 BON DEDUCTION 

Word 14 BONDACCUMULATION 

Word 15 BONDENOMINATION 

2. Environment for MASTER Records 

The master file is a standard binary tape file containing only MASTER 
records. Twenty 15-word records are grouped to form 300-word blocks 
on tape, with each record complete within a block, since it is desired 
to process input records in the buffer area, in the locate mode. The FILE 
and SPECIF cards for INPUTMASTER and OUTPUTMASTER, provide the 
system with these characteristics. 

D. The DETAIL File 

The detail input file, DETAILFILE, consists of records containing a date, total 
hours worked during a pay period, and the employee number of an employee on 
the payroll. 

1 . Data Description 

Data Description entries specify that all fields of the detail records are 
in external mode since they are generated on a card punch. HOURS is 
the only field upon which arithmetic operations are performed, and 
consequently, is the only field specified as numeric (9's in description). 
Detail records consist of the following 709/7090 words: 

Word 1 EMPLOYEE NUMBER 

Word 2 DATE 

Word 3 HOURS in the first three characters 

3 blanks (supplied automatically) 
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Environment Description 



The detail input file is a non-labeled, ungrouped, BCD tape file produced 
on card-to-tape equipment. On the input tape a 3-word record occupies 
the first portion of tape blocks 14 words long. 

Only the 3-word record is to be brought into storage and processed, and 
the specification BLOCKSIZE 3 on the DETAILFILE FILE cards accomplishes 
this aim. Alternatively, BEGIN and BLOCKSIZE 14 might have been 
specified on the FILE card which would have enabled correct processing 
but allowed the full 14-word block to enter core. 

E. Output Report Files 

In this problem four output files are prepared for listing: CHECKFILE 
BONDORDERFILE, PAYFILE, ERRORFILE. 

1. The CHECKFILE 

a) Data Description 

The Data Description of CHECK records in the CHECKFILE specifies 
a 2-line check to be printed under carriage control on a 720 printer. 
A standard carriage control tape is assumed with Channel 1 
associated with the first check line and Channel 2 four spaces away 
for the second line. The two check lines are grouped in one record, 
separated by a record mark (signalled by type RCDMRK) for printer 
control . 

The CHECK records would be composed of: 

Word 1 carriage control character 

2 characters for MONTH 

a dash 

2 characters for DAY 
Word 2 a dash 

2 characters for YEAR 

3 blanks 
Word 3 6 blanks 
Word 4 6 blanks 
Word 5 6 blanks 
Word 6 6 blanks 
Word 7 3 blanks 

first 3 characters of EMPLOYEE. NUMBER 
Word 8 last 3 characters of EMPLOYEE. NUMBER 
record mark 
carriage control character 
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first character of NAME 
Word 9 next 6 characters of NAME 
Word 1 next 6 characters of NAME 
Word 11 last 5 characters of NAME 

1 blank 
Word 1 2 6 blanks 
Word 13 6 blanks 
Word 14 6 blanks 
Word 15 1 blank 

first 5 characters of AMOUNT 
Word 16 last 3 characters of AMOUNT 

3 blanks (supplied automatically) 



b) Environment 



The CHECKF1LE is a BCD output tape file. A single record 
composed of the two lines is output as a block as specified by 
BLOCKSIZE 20 on the FILE card. 

2. The PAYF1LE 

a) Data Description 

Two types of records appear in the PAYFILE: an individual 
PAYRECORD which corresponds with each check issued, and 
DE PARTMENT. TOTAL summations . Department totals are 
accumulated in the internally formatted working area, 
INTERNAL. TOTALS, until a change in department number 
occurs; the fields of DEPARTMENT. TOTAL are externa! edited 
versions of INTERNAL. TOTALS. 

In output report records blanks may be specified as a constant. 
If the format specification indicates the length of the field, it 
is unnecessary to provide the proper number of blanks between 
quote marks. 

b) Environment Description 

The FILE card for the PAYFILE describes an output, BCD tape 
file which may contain records PAYRECORD and DEPARTMENT. TOTAL. 
A BLOCKSIZE of 20 is specified to accommodate PAYRECORD. The 
shorter records, DEPARTMENT. TOTAL, will be written with proper 
length, and will always begin a new buffer. If this short record was 
only 10 words long, it would be necessary to specify BEGIN in the 
File Card to avoid grouping of the short records. 



COMPILATION OF SAMPLE PROBLEM 



CTC 



OATE 10/18/61 TIME 2.45 ACCOUNT ID. CT PUBLICATIONS PAST 

► COMPILE LIST ""CT"PU8LTCA"rTtiNS 



i.00 71175 MASTER ~ 1 RECORD" 
2,00 71177 DAT 2 
3,00 EMPLW€"E~."nUM~"3 
'1200 BER 



4,00 71201 DEPARfMENF^ AA 

.- 5 -».Q0___ 71202 EMPLOYEE 4 AAAA 

6,00 71203 NAM*E 3 "MlTf"" 

J.lQ9... 71204 TRIGGERS 2 AAA 

8,00 71205 RATE" 2 TR99V999" 

_9,_00 71206 DATE 2 



10,00 71207 MONTH 3 AA 

11,_00 71210 DAY 3 AA 

12,00 71211 """YEAR 3 AA 

.13,00 .71212 EXEMPTIONS, 2 IR99 

14,00 71213 TOTALS "2 

_15».00 71214 GROSJ __3 IR9I41V99 

16,00 71215 RETIREMENT" 3 IR999V99 

J 7, 00 ..71216 INSURANCE 3 IR999V99 

18,00 71217 PICA " 2 "l"R"999V99"~ 

1_9_,00 71220. _ WHT 2 _ IR9J4JV99 

20.66 71221 ~ BONOE'duCTTon 2 TR99V99"" 

JX'QO BONOACCUMULATl 2 IR999V99 

7.1222 '" ON 



-2.2tPp_ BgNDENOMINATI_0 2 IR999V99 

71223 *""n" '""" 

-2.3 1 00.. _. 7,1.224 DETAIL _ 01REC0RD 
24,00 71226 EMPLOYEE. NUMb¥r62 

...25,00 71227 DEPARTM ENT 03 AA 

26,00 71230 EMPLOYEE 61 aTaa 



.2.7,00. 71231 DATE 02 

28,66 71232 MONTH 03 AA _ 

. j?9,pp..___71.233 DAY, 03 AA 

30,6b" 71234 "YEAR 03 AA," " 

..3 1 , 00 7 1 2 3.5 .HOURS OJ 99V9 

32,00 71236 CHECK 01REC0RD 

-33_tQP___ 71240 .CNTRLCHAR 02 A 'l* 

34,00 71241 DA'fl "(32 " 

.35, 0.0.... .71242.. ...MONTH _ 03 AA 

36,00 GNibbi 6V A~"-"» 

.37,00 71 244 DAY 03 AA 

3 8,00 GNJ002 " "03 a •-• 

-5?jP.0_.._.7.4.246......YJEAR 03 AA 

4o,oo GNiboi 6V " \TibV""' 

-4JjP_0_____7_125P___£MP_L.QYEE.NyMB£.Rp2 A(6) 
42,00 71251 ENOFRSTLINE 02*R"CDMRK V 

.4 3 ,0.0 7_l.2.52__C N T R L CHARS ECLIN02 a '2 ' 

44,00 71253 NAME 02 A(18~ 



-45,0.0 GN)004 02 _ A120I • • 

46,00 71255 AMOUNT "" 6Y ""V8~889."99"" 

_47,PP__._7.1256 PAYRECORD _. 1REC0R.D 



DATE 10/18/61 TIME 2.45 AC COUNT 10. CT PUBLICATIONS PAGE 2 

s 

48,00 71260 EMPLOYEE. NUM_BE_R__2 --- » 

V9,d6~~~ 7126 _ 1 DEPARTMENT 3 AA 

50,00 GN)00 5 3 A ' ' ■ " L 

51,00 71263 EMPLOYEE 3 AAAA 

52,00 _ G_N)_006 3 A__'__'_ 8 

53766 71265 NAME 2 At 15) 

_54 t 00 _ _GN)007 2 A__'__'_ 8 

55", 66 7126~7 TJATE 2 

56.00 71270 MONTH 3 AA _ __ _ 

57,00 GNJ008 3 A •-• j( 

58 L 00_ 71272 DAY 3 AA 

V9.66 " GN)66~9 3 A •-' „ 

6_0 t 00 .71274 __ YEAR 3 AA 

Vl.OO" G~N)6l0 2 AAA ' ' 

6 2.00 71276 H RS I 8889.9 " ~ 

63,00 GN)011 2 AA • ' 

64 ,.00 71300 GROSS 2 888.8.?. 99 

6~5~,66 GN)012 2 AA ' • 

66*00 71302 WHT 2 888_8.? s ?9. 

67", 00 GN)"6l3 2 AA • ■ 

frfi.00 71304 PIC A 2 8889.99 — 

69,00 GN)014 2 AA • • 

70 t 00 71306 BONDEDUCT.ION 2 888_9_._??_ 

Yl.OO" GN)*"015 2 AA ' « 

72 t 00 _ 71310 INS.PREM 2 §8_8_9..?9. 

73", 6b" GN1016 2 AA • • 

74 ,nn 7H1? RET.PREM 2 8889 - 99 — — 

75,00 GN)017 2 AAA ' • 

76x00 71314 NETPAY I 88.8.?. ?9. 

_.. --- GN1018 2 AA ' • 

.78^00 7.1.316. 60NDENCMJNAJ.I.0N.2 8_8. 88 ?-«9-? 

_. - - - — - y 13l? De p ARTMEN T. TOTAL 1REC0RD nPPARTMPNT • 

8 Oj_0 Q m\ 12 2 A(21) ' DEPARTMENT _ _ 

81,00 71322 CURRENT. OEPT 2 AA 

82,00 GNJQ20 I M.12J_A.I0_TALS .' 

" 83, bo" 71324 HOURS 2 8889.9 

84.00 GNJ021 .2. AA_1__' 

8 -5,bo"~""7T326""~GRCfSS" 2 88889.99 

8 6 1.0.0 GN)022 Z AA ' ' — ~ 

87,00 71330 WHT 2 88889.99 

88,00 . .. GNJ023 2 AA..'..! 

- 8 - 9 - f oo— -7V3S2"" FICA" 2 8889.99 

gOj.OO _ _ GN1024 .2. _*_A. __'__• 

gi, 66 7"l334 BONOEDUCfibN 2 8889.99 

9 2,00 GN)025 2 AA ' ' " 

93,00 71336 INSURANCE 2 8889.99 

94,00 GN)026 .2. M.!.- 

9 5 y6b""~"7"l34b RETIREMENT 2 8889.99 

96,00 GN1027 ___2_ A A _'_-' 

97Vb6"""7134"2""NE"fPAY""""" 2 88889.99 

98jlQ0 GN)0 2J 2 AA ' ' ■ — 

99,00 71344 BONDPURCHASES 2 88889.99 

100,00 _ 71345 BONDQRDER ARECORD 

16IV66" GN)0"29 2 A ■ ' 
1O2jJ00 .J71350 _.PAI 2_ 



12 



10 



DATE 10/13/61 t7me~~2.~45 ACCOUNT 



ID. CT PUBLICATIONS 



PAGE 



-l°3j,_q0 §?- P -LQYEE_._NUM__3_ _ A(6) 



71351 



104,0 



8ER 



GN)030 



105,00 71353 NAME 3 

-IPA'.QQ GNJQ31 3 



AU5) 
A • • 



107,00 



71355 



BONDENOMINATIO 2 
N 



899V99 



108,00 
109,00 



GN)032 
71357 DATE 



110,00 71360. ERROROUT ' 1REC0RD 
-il.UQ 71362 ERRORTYPE 2 



A • 
A16) 



112,00 71363 INFO 2 

.UAtQO 7.1.36*. WORK I.NG 1 



A(23) 



114,00 
115.00 



71365 

71366 



GROSS 
RETIREMENT 



116,00 71367 INSURANCE 2 
.1.1.7., 00 7.1370 PICA 2 



IR9(5)V99 
IR9[4)V99 



IR9(4)V99 
IR9I4)V99 



118,00 71371 WHT 2 

.11.9.00 7 1.3.72. ___NEI_PA.Y._ 2 



IR9I5)V99 
IR9[5)V99 



120,00 
121,00 



71373 
71374 



HOURS 
INDEX 



122,00 71375 POS T 

. 123,00 713 76 _ J.N TE RN.AL .TOTALS 1 



IR99V9 
IR99 



IR99 



124,00 71377 HOURS 2 

.12_5_ t 00 7JAQ.Q_G.R0SS. 2 



IR9999V9 
J.R9I 5)V99 



126,00 71401 
127.00 7J4 02 



WHT 
FICA 



128,00 71403 BONDEDUCTION 2 
-1-2.9 1 00... .7_1>.04.__I_NSURANCE. 2. 



!R9I5)V99 
IR9(4)V99 



IR9(4)V99 
.IR9I4JV99 



130,00 71405 RETIREMENT 2 

i.3.1 1 0.0. _ _ . 7140. 6_ _ _N E TP.AY 2 



IR9I4IV99 
.IR9(5)V99 



132,00 
133, 0_ 



71407 BONDPURCHASES 2 
-71410. GRAN D. TOTALS 1_ 



IR9I5JV99 



134,00 71411 HOURS 2 

.JA5iP0..__7.V41|___GROS_S. 2 



IR9(4)V9 
-l R ?J5.JLy?9. 



136,00 71413 WHT 2 

J.3.7 ! 00. ... 7.1.4 1 4. . _F I C.A. 2 



IR9(5)V99 
-l R ?JA>Y?9_ 



138,00 71415 BONDEDUCTION 2 

139,00 7 1416 INS URANCE. 2_ 

140,00 71417 RETIREMENT 2 

.IjfLltQO 7 1.4.2.0. _MTP AY I 

142,00 71421 80N0PURCHASES ~~~2~ 

A43jil0.....7.l422..TAfiLE J 

144,00 GN1033 " 2 

JLftLiiLQ GN1034 j_ 



IR9(4)V99 
IR9(4)V99 



IR9(4)V99 
JL.R?j5)V99 
IR9(5)V99 



146,00 GN)035 2 

.JL*7jJUI Ji&J.ft3_6. z_ 

148,00 GNJ037 2 

..L49J.Q.Q GNJJD.3.8 £ 

150,00 GNI039 2" 

-JL5JU.0JL GJLLQ1Q 2__ 



IR9(5» '00999' 
'0 80060' 



IR9I5) '01499' 

~. , JIQQ9$_Q_ , _ 

IR9(5) '01999 # 

..JXiQSaSll 

IR9(5) '02499' 
ISQQ9Q' 



152,00 GNJ041 2 IR9(5) '02999* 

?- 153..0Q GNJ.0A2. x. . ' 150120' 

154,00 GN>043 2 IR9<5) "'"03499" 

a „ L55J.0.Q. GUJSA* 2 _ '^QOl^O.' 



DATE 10/1S/61 fllME 2745 ACCOUNT ID. CT PUBLICATIONS PAGE 4 

, s 

156,00 GNI045 2 IR9(5) '.03999: 9 

" [57,~66 G~n7646~"" " 2 '200150' 

158,00 GN)047 I IR9(5) '04499' . L 

159,00 GN)048 2 '250150' 

160,00 GN)049 2 IR9 ( 5_)__'_0499?_' _ g 

" I6"l766 GN7650" 2 '300180' 

162,00 GN)051 2 IR? ( 5J..'_0649?.« .__ 8 

163766" GN7652" 2 '300250' 

164.00 GN)053 2 IR9(5) '07999' oi 

' 165,00 . GN)054 2 '300350' 

166 t 00 GNJ055 .2 JJ1?( 5J„«.?99??_' __ u 

" IVf.OO" GN)"656 2 '300500' 

168^0 GN)057 REDEF IAB.LE 2I 

i6~9,6b"""71454 TABLE. ff EM 1 12 

170.00 71455 RATE 2 IR99V999 __ 

171,00 714?6 INSPREM 2 9V99 
i72.t0p....7U.57_RE.I? R iLM._- ? ?¥■?..? _. __. _ 

• ENVIRONMENT __ 

173766" YnPUTMASTER FILE INPUT, BINARY, TAPE, MASTER, BLOCKS I ZE 300 

174,00 SPECIFINPUTMASTER, UNIT1 '01', OPENW, CLOSER 

175,00 OUTPUTMASTER FILE OUTPUT ,BI NARY .TAPE , MASTER, BLOCKS I ZE 300 

176.00 SPECIFOUTPUTMASTER, UNIJl 'C I • , OPENW t CLOS_ER 

"177,66" b"E~fATLF[LE" f"iYe"YnPuY,"BC0 , TAPE , DETAI L , BLO'CKSIZE 3 

178,00 SPECIFDETAILFILE.UNITl ' C2 • t OP.ENWj CLOSE R_,_LOW_ 

" 179766" "CHECK YfLE F iY E " O'uf PUT, BCD.f APE , CHECK, BLOCKSI ZE 20 

1 80, q SPECIFCHECKFILE.UNITI ' D2 ', OPENW, CLOSER , LOW 

' — — "TbT.oo PAYFILE FILE OUTPUT, BCD, TAPE, PAYRECORO, 

DEPARTMENT. TOTAL j BLOCKS I ZE 20 

• "'iai',00 "s"p"ecYf"pay"fYle~." uniti •dssopenw, closer, low 

183-00 BONDQRDERFILJ FILE OUTPUT, BCD L TAPE t B0.NDORpj|R,BL_0CK.S.I.ZE. 6. 

• "184,66" SP"ECIFBONbo"RDERFILE,UNITl 'C3' , OPENW, CLOSER, LOW 

185.00 ERRORFILE FILE OUTPUT. BCD. TAPE . ERROROU T. BLOCKSI ZE 6 

18776o SPECIFERRORFILE.UNITl • D4« , OPENW, CLOSER, LOW 

i2 """ •procedure" 

187,00 71461 GNJOQOCALL. (MASTER EMPLOYEE .NUMBER ) ...M.EMP.NOjt. 

11 """Yl462~ (DEf/Tll EMPLOYEE. NUMBER) D.EMP.NO, 

71463 (DETAIL DEPARTMENT) D.DEPT, ____^___ 

10 ' ~~" 71464 (MASTER BONDEDUCTION) M.BND.DED, 

71465 (_MAATER.AQNyAC.CyMUJLAIip_N)._.A«.BNp...AC _ 

9 "" " 1^8766" ~~Yi766~~s"t"arY." ~ open "all files", 

MOVE ZEROS TO JNTERNA_L. TOTALSj..GRA_ND_. TO_TALSj 

8 GET "MASTER", "AT END DO END. OF . MAST ERS. 

189,0 MOVE MASTER DEPARTMENT TO CURRENT. DEPT, GO TO GET. DETAIL. 

1 " 190,00 71471 GET. MASTER. GET MASTER, AT END DO END. OF .MASTERS. 

191,00 71474 GET. DETAIL. GET DETAIL,. AT END GO TO ENp..OF._DETAI_LS. _ 

6 l92,"0"6""""7"[4Y7'"c6MP"ARE".YMPLb"Y'EE"."NU"MBER"S. GO Yo CHECK. NEW. DEPT WHEN D.EMP.NO ■ 

M.EMP.NO t LOW. DETAIL WHEN D.EMP.NO LT M.EMP.NO. 

3 193", 00 7iY0"0""HYG"H."6E"T"A"l"L"."""M6"v"E""'M v "f6"ER"R6RTYPE, MOVE" MASTER D"AT TO 

A ERROROUT INFO, , 

~ FILE ERROROUT. 
194,00 GET MASTER, AT END 00_ END. OF .MASTERS. 

195766" g~o~~to"Y6m>arY.emp7oYee\ NUMBERS. 

, 196,00 71503 LOW.OETAIL. MOVE DETAIL TO ERROROUT INFO, MOVE 'D« TO ERR_QRTYPE,_ 



DATfc 10/18/61 TIME 2.45 ACCOUNT fF, CT PUBLICATIONS PACT 



__ _ FILE ERROROUT, 

GO TO Get'.TJEfML"." 

JJ-L'-PIL 11.504 _ ENJ)._0_F_. MASTERS . IF_D . EMP.NO = H I OH. VALUE THEN GO TO END. OF. R UN 

OTHERWISE SET M.~EMP.NO = HIGH. VALUE": 
. l ?8r 9 Ik507_E_ND. OF. DETAILS. IF M. EMP.NO * HIGH. VALUE THEN GO TO ENO.OF.RUN 

OTHER Wl SE SET 0. EMP.Nd"*" "HI GhVvaLUe,"" GO "f 0~ HlGHVbETATu" 
.l?_ 9 _t.Q0 71512 END.OF. RUN. DO DEPARTMENT . END, 

MOVE" C"dRRES"P"fJN0TNG"lfRANbVf6TAVs"trj"PAYlUfCbRD," 

MOVE GRAND. TOTAL S HO URS TO PA_YR£CORD HKS, 



MOVE GRAND. TOTALS INSURANCE "TO PAYRECORD INS.PREM, 
MOVE GRAND. TOTALS RETIREMENT TO PAYRfcCORD RET.PREM, 
MOVE 'GT« TO PAYRECORD DEPARTMENT"," 
MOVE BLANKS TO PAYRECORO NAME, PAYRECORO EMPLOYEE, 

PAYRECORD MONTH, P AYRECCrRD" DAY;" >"a"Y RECORD" YEAR," 

MOVE GRAND. TOTALS_J>ONpPURCHAS ES TO PAYRECORD 

BONCENOMINAT ION, FILE" PAYRE'CORD^ 

CLOSE ALL FILES, STOP RUN. 



200,00 7151 J CHECK. NEW. DEPT . IF CURRENT lOEPT " ~l"S"NOT "EQUAL" ?b"0"."DEPT "THEN 

DO DEPARTMENT.tND OTHERWISE GO TO COMPUTE. PAY. 

201,00 MOVE ZEROS f 6"TKlf ERNAL'.Ydf ALSV '""" 

J?- ** 0. DEP T TO CURRENT. DEPT. 

202,00 71516 COMPUTE'. PAY.' MOVE DETAIL DATE~TO MASTER DATE, MOVE DETAIL 

HOURS TO WORKING HOURS, PAYRECORD HRS. 

203 » 00 IP WORKING HOUR'S "GT""46".0"f HEN "SE"f"w6^ 

.hours * 1.5 -20) • master rate otherwise set working 

gross * workiTng" hours "•" master'raTe: 



A9± »00 DO F I C A . ROUTINE , 



00 WITHOLDING. TAX. ROUTINE. 



. 2.0.5 » 00. lF.. M vBNP.-.OED_J_S_.Np_T_EQUAL TO ZERO. THEN DO BONO. ROUTINE 

OTHERWISE MOVE BLANKS TO PAYRECORD "BONDEDUCf ION.'P AYR'ECORId" 

BONDENOMJNATION. ___ 

206,00 DO SE~ARCH"FbR"lNbEx"i"ffr)12". 

. 2P 7 ,00 7 15. 2 3 .NET. __SJET_ WORKING NETPAY _*..WORK ING_GR0 S_S__- WO RKING FICA - WORKING 

WHT - WORKING RETIREMENT - WORKING INSURANCE - M.BND.DEO. 

.208,00 ADO. .CORRESPONDING WORKING JO MASTER TOTALS, _ INTERNAL. TOTALS, 

MOVE CORRESPONDING DETAIL Td'PAYRECOROr CHECK", 

KOVE. CORRESPONDING WORKING TO PAYRECORD, 

MOVE MASTER NAME TO PAY'RECb'RD'NA'ME"," "CHECk""nAME"," 

. MOVt. WORKING NET PAY TO CH ECK AMOU NT. 

FILE CHECK, ~ " 

FILE _PAYRECORD_, 

FILE MASTER^ 
209,00 .. _ GO TO GET. MASTER. 

210,00 71524 FICA. ROUTINE. BEGYn" sVcf ION." 

2 I i . QO SE T__WORK I NG FICA = .03 *._WORK I N G GROSS, 

AOD WORKING FICA TO MASTER FICA. ~ 

.212,00 If-M_ASJE.R.FJ_CA GT 144.00 THEN SET WORKING FICA = WORKING- 
PICA - [MASTER FICA - 144.00), SET MAST e"r""F 1ca"=" lV^d'oV 

.2_13_,_00 GN1077END F ICA . ROUT I NE_. 

2 14,00 71527 W I THOLUING. TAx".RauflNE."'~BEG"l n" YeCTION." 

-2 15 » 00 SEL WORK I NG WHT = 0. 1 8 « (WOR KIN G GROSS - 13 • MASTER 

EXEMPTIONS), """" " 



SE_T_WPR(UNG_ WHT = WORKING WHT •_ TRCWORKING WHT GT 0), 

AOD WORKING WHT TO MAS"fER WHT. " 

_2__6,00__ __ GN.)078END W I THOLD I_NG. J_AX.ROUT I NE . 
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s 

2 17 1 00 715 31 BOND. ROUTINE. BEGIN SECTION. . --_-... 9 

|J_U.««- — £J-VA - A -0"D"MVB"N0".D"e"6 TO I M.BND.ACC, INTERNAL. TOTALS B0N0EDUCT10N. 

2ig 00 M OVE M.BND.OEO TO PAYRFCORD BONDEDUCT ION. _ - —L 

220~!~00 Tf~MASTER B0NDEN0MINAT10N NOT GT M.BND.ACC THEN SET 

* M.BND.ACC = M.BND.ACC - MASTER BONDENp_M_l_NAT_l_QN_ O.TH E R.W.I. SE_ _ -8 

M'dvE" B"LANK"s""Tb""PAYR¥c6Rb BONDE'nOMINAT ION, GO TO BOND. END. 

221 00 MOVE CORRESPONDING MASTER TO BONDORDE.R.,... ADO.BP.NOQRp.cR.' - - « 

-"- t " VdNDYNOMlVAfibV'fo'TNfeRNAL.TdfALS BONDPURCHASES.MOVE 

BfTNOnR OER BONOENOMINATION TO PAYRECOKO BONDENO MINAT ION. _ __ 01 

222,00 HLE BONDORDER. 

2.23.00 71534 BOND. END. END B_QNP_.AQyT.IN_E. -- " " — 

.... -- _... — ----^ BEGfN SECTION. 

225 00 IF MASTER RATE GT TABLE. I TEM. .RATE _( I_NQEXJ__T_HE_N„GO_ T.O _.._ « 

SEARCH^EN'D'OTHE'RillS'E MOVE INDEX TO POS, 



MDtf P TNSPREM (POS) TO INS.PRE M. WORKINf. INSURANCE. 
"MOVE RETPREM (POS) TO RET.PREM, WORKING RETIREMENT, 



GO TO NET.. 

'Y2"6^0b"""7T5"A6"SEARCH.ENb. END SEARCH. 

227,00 71541 DEPARTMENT. |NP_.._BEGXN_§EC.T.igN_._ ----- 

228,00 MOVE CORRESPONDING INTERNAL. TOT ALS TO DEPARTMENT. TOTAL, 

___/lLE DEP ARTMENT. TOTAL, 

"~ * A0b~bRRESPONDING INTERNAL. TOTALS TO GRAND. TOTALS. 

229.00. G_N)g8_3ENP._D.EPAR_T_MEN_T._ENP... 



CTD 
CTE 



NO. _E. R R.O.R S . WE R E . _DE I E C T.E.D . _D_U_R I N.G. _C Q M.P.I I. A J.I.QN . 



2. 
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_lHLJl»tkQ.WlNG_.LgAp_E_R_CpNTRp]. ^.QAROS _PRJE_CEp£__THE__B INARY DECK. 

» p ILE 01 »D1 I__HB INPUTMASTE IR 1 

• SPEC 01 300 N R 2 L 

fFJLLE.__Q2.?C.l j»__HB. _ OUTPUTMASTER 3 

• SPEC 02 300 N R " V 8 

•fJLLi„0.3.5C2 1 LD DETAILFILE 5 

• SPEC 03 3 N R "" " 6 - ■ 

'FILE 04 »D2 PJ.D CHECKFILE 7 

•SPEC 04 20 N R ' g ' °' 

•FILE 05 »D3 P LD PAYFILE 9 

• spec o"5 2*6 h'r " " yd" " " — " 

5JLUE„_q_*__ # C3 P LD BONOORDERFILE 11 

• SPEC 0& 6 N R " "" Y2" - " - 

'FILE 07 »04 P__LD ERRORFILE 13 

•SPEC 07 6 N R J4 

5.C.II3JJ. PATE 101861 TIME 2.45 CT PUBLICATIONS 15 



DATfcTlO/ 18/61 TIME 2.45 ACCOUNT 



ID. CT PUBLICATIONS 



PAGE 3 



LOC 



OCTAL 



CNTRl 



SYMBOLIC 



01 



5 00000 01621 00001 USE 1 
671 .B.GN 2j_P_I_)_l_ 



-8 



5 00000 00000 00001 USE 

00000 2_ooooo o. ogopp _ oogg.i.. »_data _bss o e 

"6b"dd6""dIobb~d4ob"do6 Tdooo check qct 010000400000 

00001 400000606060 10000 +1 OCT 400000606060 oi 



00002 606060606060 10000 +2 

00003 606060606060 IPOO.O. +3_ 



OCT 606060606060 

OCT 606060606060_ " 



00004 606060606060 
000 5_- ..60 6 06 606.06 0, 
00*006 606066000000 
0000 7 000000720200 



10000 +4 OCT 

.10000 _ _±5 .OCT. 

10000 ~ +6 OCT 
10000 ±7 OCT 



606060606060 

606060606060 *< 

60~6~06adooobd 

000000720200 



000 10 2 OOOOO 00002 0000 1 BSS 2 

00012 ogo_oo_oggo_060 IQopo. +_i ocj P_ppogpppoo6p_. 



00013 606060606060 10000 

00014 _ 6060.60606.060 1.0000. 

00015 606060606060 10000 
_000J6 600000000000 LQPP0_. 

00017 000000606060 10000 
00020 000060000000 10000. 



+2 

_+3_ 
+4 
+ 5 



OCT 

OCT 
OCT 



606060606060 
60.6060606060. 
606060606060" 
600000000000 



♦ 6 OCT 
PAYREC.ORD OCT. 

♦ 1 OCT 

BSS 
+ 1 OCT 
±2 QCJL. 



000000606060 
000060000000 
006000000000" 

.1 

000000000060 
000040000040 



00021 006000000000 10000 

00022 .2 00.000. 0. 00001... .0.000.1.. 
'0002 3 d6dod66o006d 10000 
JL0P.2.4 g 000400000 40 1 0000 

00025 000060606000 10000 

00.026 . QP_0PQQ0P_0Q6_0_ lQO.O.Q.. 

00027 600000000000 10000 
_OQQ3P.__00_O.O.Qg60.6000. 10CQ.Q. 



00001 

JLQfiftL 
00033 000000006060 10000 

3.4. . _ 2. poo g p. _o _ 1 q gpp_i . 



00031 2 00000 00001 
_0_Q032 Q 0606 0.0.0. O.OJftP 



+ 3 OCT 

±4 QCJ.__. 

+ 5 OCT 

.♦A OCT.... 

BSS 
+ 1 OCT 



000060606000 
OQQQ0OJO.QOP_6.Q- 
600000000000 
. -PQQ 00.0.60 6.QP.Q . 
1 
006060000000 



♦ 2 



OCT 

BSS. 

+ 1 OCT 

.+£ OfJ. 

BSS 
♦1 OCT 



000000006060 
1 _ 

006060000000 
000000006060 
1 
006060600000 



00035 006060000000 10000 

00036 _g_oppog_op6Q6p_ 1PP-P.P. 

06037 2 bbdob 6 boddl ooooi 

_00 040 00606060000.0 10000 

00041 000000000060 10000 

0.0.042.. .60go.pogpp.pop l.ogpp.. 

00043 000000606060 10000 

00044 606060606060 .. .lOOOg. 



+ 2 OCT 

+i _QCJ_ 

+4 OCT 

DEPARTMENT. TOTAL 

OCT 
+1 OCT 



000000000060 

60ooooopogp_p 
bod66o6"o606o" 





00045 


00046 
B 00047 




00050 
00051 


00052 
00053 


3_ 


00054 
00055 




00056 
00057 



606060602425 



_ioppp_ 

472151634425 10000 

456360000060 10.000. 

634663214362 10000 

606060606000 IPP.OO. 

000000000060' 10000 

600000000000 . jooop, 

000000606000 10000 

2 ooooo 00001 _gopoi_ 

006060000000 10000 
000000006060 10.000. 



606060606060 
606060602425 



+ 2 

♦3. 
+ 4~ 
♦ 5 
+ 6 
+ 7 



OCT 
OCT 
OCT 
OCT 
OCT 
OCT 



+ 1 
+ 2 



OCT 
B.SS 
OCT 
OCT 



472151634425 
4563.6.0000060 
~6~3466 3~214~36~2 
60606.0606000 
"d 0000 0006 " 
_600ppopp0000_ 
000000606000 
1 

6d6"o6"66bo"ddo 

000000006060 
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.00060 2 00000 00001 00001 BSS 1 



00061 
00062 



006060000000 
000000006060 



10000 
10000 



+ 1 
+ 2 



OCT 
OCT 



006060000000 
000000006060 



00063 2 00000 00001 00001 BSS 

.PP. 06 -*-.- -'-. 060000000 10000 + 1 OCT 



006060000000 



00065 000000000060 10000 +2 OCT 000000000060" 

.9P.°. 6 .6___6_QQ9P_OQQP_o_OQ JLPQOQ_ . +3 OCT 600000000000 



00067 000000606060 
00070 600000000000 



10000 
10000 



♦4 

BONDQRDER 



Off 
OCT 



000000606060 
600000000000 



00071 006000000000 10000 +1 OCT 006000000000 

.9PP-7.2_._2_.QPP - 00001 00001 BSS 1 



00073 000000000060 10000 +1 OCT 

00074 000000000060 10000 +2 OCT 



000000000060 
. P . 000 PP-P ->P-.- W 



00075 2 00000 00001 

00076 2 00000 00004 



00001 
00001 



ERROROUT 



00102 
00113 



"b5S~ 

BSS 



2 00000 00011 00001 
2 00000 00011 00001 



WORKING BSS 
INTERNAL. TOTALS 

~BSS" 

GRAND. TOTALS BSS 

Table act" 

+ 1 OCT 



00124 2 00000 00011 00001 

6b 1 35" o"o6bob66"iY47 fdoob" 

00136 001000000600 10000 



000000001747 
001000000600 



00137 000000002733 
00140 010000000600 



10000 
10000 



+ 2 

+ 3 
"+4~ 

♦ 5 
"♦6 

+ 7 



OCT 
OCT 

o"cf" 

OCT 
"OCT" 
OCT 



000000002733 
010000000600 

"6b"ob"66bo"37_"7" 

010200001100 

" 6b"odobob"4 703" 

010500001100 



00141 000000003717 

00142 010200001100 



10000 
10000 



00143 
00144 



000000004703 
0110500001100 



10000 
10000 



00145 
00146 



000000005667 
0)10500010200 



10000 
10000 



+ 8 
+9 

"+Ib" 

+ 11 
+ 12 
+ 13 



OCT 
OCT 
OCT" 
OCT 
OCT" 
OCT 



000000005667 
010500010200 

bo"66dbo~d6653"' 

020000010200 
' 00 OObbod 7637 " 
020000010500 



00147 000000006653 
00150 020000010200 



10000 
10000 



00151 
00152 



000000007637 
020000010500 



10000 
10000 



00153 
00154 



000000010623 
020500010500 



10000 
10000 



+ 14 

+ 15 
"+16" 

+ 17 
"+l"8"' 

+ 19 



OCT 

OCT 
"OCT" 

OCT 
"OCT" 

OCT 



000000010623 
020500010500 

bboobb'dilVo'f" 

030000011000 

"ododbbbi 4543 " 

030000020500 



00155 
00156 



000000011607 
030000011000 



10000 
10000 



00157 
00160 



000000014543 
030000020500 



10000 
10000 



00161 000000017477 10000 

00162 030000030500 10000 



♦ 20 
+21 
+22" 
+23 



OCT 
OCT 
o"CT 
OCT 



000000017477 
030000030500 
6bb"66b"3"0"3237" 
030000050000 



00163 000000303237 10000 
_0Qi_'A__PAPQ0p_0.5_00pjD _ 10000 



00165 
00165 



0074 00 4 00257 



10010 



GNJOOO 
START 



TSX 



00166 00000 00001 10010 
-P.Q 1 67 . . 441 _ 00. .0 _ 0_1 7 4 4 1 1 



+ 1 
.+2 
+ _" 
+ 4 

_+T 

+ 6 



PZE 

APJL 

STI 

.I5_x 

TXI 
LDI 



SYSH75.4 



I OC) 1 
CP)+40 

S"YST_"3~3 

SY_) 182.4 
SYS)24"4, 1,54 
CP)+41 



00170 0604 00 00205 10010 

s___ _Q1_7__._ 0.074.00 .4 00^66. 10010 

00172 1 0~0066~ 1 00364 100 1 6 

4 00173 0441 00 1745 10001 



30174 060* 00 00205 10010 

3 ■_Q.17.5__P_Q.74.p.0..4.p.0266 100 10 

30176 1 00066 I 00364 10010 

z l _0_l_7_7__3_ 01713 _0.01712_ 10101 



♦ 7 

♦ 9 

+.10 



STI 
TSX 
TXI 
TXH 



SYS)133 
SY:S)182.4 
SYS) 244, I, 54 
CP)+14 t 0jCP)+15 
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00200 0074. 00_4_.00p_ip_____l_00ip_ 

"60201" o"6bM)*"b 04601 1 1010 

0020 2 00433 00205 11001 



♦11 TSX I0C>8,4 

____ y.. f N PUTMASTER,,SYS)2bO 
»13 PZE GN)058..SYS)283 



00203 5 00017 6 01667 

00204 _o_Q2p__qo_p__qo2_ip_. 



10001 
10001 



♦ 14 

♦ 15 



IOCTNi 
TRA 



BL)2t ,15 
GN)059 



00205 0774 00 7 00210 

00206 0634__00_4_.0033A. 



10001 
10001 



GN)058 



+ 1 



AXT 
SXA 



• ♦3,7 

END. OF. MASTERS ,4. « 



00207 0020 00 00332 
00210 4500 00 01714 



10001 
10001 



♦ 2 



GN)059 



TRA 
CAL 



END.OF.MASTERS+1 
CP1+16 



00211 0320 00 

00212 0535 00 

"00213" 7 6bo~66 1 00446 

00214 4500 00__i_.QPP.Q.Q- 



CURRENT.DEPT 



00047 10001 +1 ANi tUKwm.utM 

1 01667 10001. + 2 - L - A 5 §U_2_,_l 



10010 
10000 



+3 TXL SYS)294,1,0 

♦4 CAL l>-DEP_A_R_TMEN_T,l_ 



00215 
00216 



0771 00 
4320 00 



00022 
01715 



10000 
10001 



+ 5 
+ 6 



ARS 

ANA 



18 
CP)+17 



00217 
00220 
00221 
00222 
b"02"23 
00224 



4602 00 
0020 00 
3 01717 
0074 00 
"6 00404 
00433 



00047 
00232 
O" 01716 
4 00010 
0~"6400"T 
00227 



10001 
10001 

ioibf 
10010 
nolo 

1100L 



+ 7 

♦ 8 



ORS 
TRA 



CURRENT. DEPT 
GET. DETAIL __. 



GET. MASTER 
♦ 1 



TXH 
TSX 



CP)+18,0,CP)+19 



♦ 2 
+ 3 



PZE 
PZE 



INPUTMASTER,,SYS)260 
GN)060.,SYS)283 



00225 
00226 
00227 
00230 
00231 
00232 



5 00017 
0020 00 
"0774 66 
0634 00 

"0620" 66 



6 01667 
00232 
Y 00232 
4.00331 
0" 0033 _ 2 



10001 
10001 

T6661 
10001 

T660I 



♦ 4 
+ 5 



IOCTN« BL)2,,15 
TRA GN)06l 



GN)060 



+ 1 
♦ 2 



AXT »+3,7 

SXA END.0F.MASTERSj_4__ 
"TRA END.OF.MASTERS+1 



GN)061 



00232 3 01717 01720 10101 

00233 Q074 00 4_00_0__0 lpO_l_0„ 

o"0234"""o" 00404 6 04003 110 10 

00235 00433 Q0JJ40 11PP.1., 

~66236"~~5 60663 6 01670 10001 

00237 002Q 00 Q 0241 10001 



GET. DETAIL 
+ i__. 



TXH 
TSX 



CP)+20,0,CP)+19 
J_QQi8_,_4. 



+ 2 
+ 3 



PZE 



DETAILFILE,,SYS)260 
_GN)g_>_2_t t S_Y_S_)_28_3_ 



♦ 4 

♦ 5 



IOCTN« BL)3,,3 
TRA GN)063 



00240 
00241 
00241 



0020 00 00351 10001 



GN)062 
-6NJJD63. 



TRA 



END. OF. DETAILS 



0535 00 1 01670 10001 



COMPARE. EMPLOYEE. NUMBERS 

t,A_C AU3»A. 



00242 
-fiPJLtl. 



7 00000 
4500 00 



1 00446 

1 00000 



10010 
10000 



+ 1 



TXL 
CAL 



SYS)294,1,0 
2)£MPL0YS F. NUMBER. 1 



00244 
00245 
6 02 4 6 
00247_ 
00250 
_00 25l_ 
6"025"2 
00253 
66254" 
00255 
00256" 
00257_ 
00260 
00261 
00262 
-QQ 26.3. . 



0535 00 
.1.00000. 
4 340 66 
0020__0_0_ 
6 020 00 
4500 00 



2 01667 

2 00446_ 

2" "60066 

0025.1. 
6 0052 7 

1 00000 



10001 
100 1_0_. 
lOObo" 
10001 

ibooi 

10000 



+ 3 

+ 4 



LAC BL)2,2 
_TXL S_Y_S_)2_9_4_ L 2_P_ 



♦ 5 

+.6 
+ 7 
+ 8 



LAS DEMPLOYEE. NUMBER, 2 

TRA »+2 

"TRA CHECK. NEW. OEPT 

CAL 2)EMPL0YEE. NUMBER,! 



4340 00 
0020 0.0 
0020 06" 
0020 00 
45"00 "06 
_P320_00_ 
0760 00 
4320 00 
46 _ 02 00 
04.4 1 _ 00. 



2 00000 
00256. 
6 00256 
00310 
6 01721 
0_PP076_ 

6 0660 6 

.0.1676 
6 00076 
g 01746 



10000 
ICOOl 

ibooi 
10001 

1 000 1 

JPPPJL 

10000 

10001 

ibooi 
j. cop 1 



♦ 9 

+ 10 

♦ 11 

+ 12_„ 

"HIG"H. DETAIL 

♦ 1 



LAS DEMPLOYEE. NUMBER, 2 

TRA »+3 

TRA" » + 2 

TRA LOW. DETAIL 

CAL CP") + 21 

ANS ERRORTYPE 



♦ 2 COM 

+3 ANA CP)+2 

V4 ors" error'type 

+.5 L.D.l .CP1+4.2. 
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0026 >___Q604_pO ,00205 10010 +6 STI SVS)13: 



00265 4500 00 01667 
.002 66 361 00 0__ JJ 4 7 
00267 0602 00 ~0 00204 - 



10001 
10001 



+ 7 

+ 8 



10010 



CAL 
ACL 



Bt. )2 
CP)+43 



+ 9 SLW S V <i 1 1 ^ ? 
■2S"?"V Q I*-»-°S-*--S2I- 6 -?----- 1 - ^^ -tig TSX SYS) 182,4 



002 71 1 00025 1 00360 "~ 10010 



00 



.. . * •. v^utj l uujou luutu +ii yxi <;v<;)P4n i ->\ 

Wr-^&A-*Mkh---mi- _ tl? ^....J}!!"!:.:" 



00273 0074 00 4 00011 
..00 27 4 00000_ 0_04007 
00275 7 00004 00076 



10010 
10010 



+ 13 

+ 14 



10001 



TSX 

PZE 



+ 15 



IOC ) 9 , 4 
ERRORFILE, ,0 



i»?-5t»-j,-§^"8 -4° .y.;.......j.« .. . m^:;2,., 



00277 0374 00 4 OOOVP" 100 10" +17 TSX I0CT8"V 

■S-KS?-S--^-if--°--^-°-2-}-- \-m tl8....„P2E... l .I. N PUTH A STE R .,.SYS>260 



00 301 004 3 3 66 304" 
.00 302 5 00017 6 01667 



11001 
10001 



+ 19 
+ 20 



PZE GN.")064V,"SYST2"83" 
IOCTN* BL)2,,15 



00303 0020 00 00307 lOOOT +TT TRA GN>065 

.?°304__ 0774 00 7 00307 10001 GN)064 AXT .+3 7 



00305 0<i>34 00 4 00331 
.00306 0020 00 _0_ 00332 

60307 0620" 66" o "6624T 

-OPJ.10 0441 00 01746 



00311 0604 00 00205 



10001 
10001 
T666V 
10001 



+ 1 
+ 2 

GN)"065 ~~~~~ 
LOW. DETAIL 



10010 



SXA ENO. OF. MASTERS. V 

_TRA __ EN0.0F.MAST6RS + 1 
TRA CO MP A R EVE M P LO Y E EVnUM BER S " 
LOI CP)+42 



+ 1 STI 5Y<1) 1 ^* 

?P- 3 -i2._A|?op._oo__o_.qi67.q_.._i_oooi +2 cal bl>3 



00313 0361 00 01750 10001 

.P-Q. 3 -i4___q6Q2„og_o_ og204 logio 

00315 0074 00 4 "o i026 6 "TOOIO" 

_9_Q .3.1 6 1_ 00 17 1 036 1 010 

D0317 1 000 10 1 00361 10010 
-?-Q32P__.4 5p_0_00_ 01721 10001 



+ 3 ACL CPf+44 

14 SLW SYS)132 

+ 5 T'SX SYSf 1827*4 
±6 IXI SY S)240,1,15 



TXI 
CAL 



SYS)24l,l,8 
.CP)+21 



00321 0320 00 00076 10001 +9 ANS ERRflttTvPF" 

'^322---QT6_0 .9P._0.9_0.006._._lQOP_q +10 COM 



00323 4320 00 01677 
4602 00 00076 



00324 



00325 0074 00 4 00011 



10001 
10001 



+ 11 
+ 12 



10010 



ANA 

ORS 



CP) + 3 

ERRORTYPE 



^i-n-t^7---^-^?--^^^°-s^--4^2-i-?- til llL.^Aimfli^.o 



00327 7 00004 00076 10001 



w«-.c.. i uuuut u uuuio 1UUU1 +15 TOST FftunamiT 

P-Q3|q.„gp2_q.gp..o.opA32.._.iggoi t \l tr_I^ g2??S?¥Iil 



00331 0774 00 00000 
.00332 4500 00 01723 



10000 
10001 



END. OF. MASTERS AXT 
1 CA^ 




CPI+23 



00333 0535 00 1 01670 10001 +2 LAC BLI3 1 

"v"!---/,-?-?- -??-^-??^---^ -?!- - ti J.XL SYS.L??4,.1,0 



00335 4340 00 1 00000 



wsjj 'Jtu uu j. uuuuu lUuuU +4 IAS 2H : MPI riYFP niimrcb"? 

.QQ3_3 4 ...0P2Q.q0.0.P.O3.42...._ 1 g0Ql _ +J > TRA GN'366 ?1 



00337 0020 00 00341 

0.Q.3 4JJ__Q.Q 2 00 QJ_4 2_ 

00341 0020 00 00370 



10001 
10001 



+ 6 
+ 7 



TRA 
TRA 



GN1066 



s Q.034.4 

C0345 
4 C.034.6. 



-jujti uu^u uu u UUJfO 10001 +8 TRA ENO 

.— CLQ34_2_4A0.Q.0i)„Q_0.U67 .QfiQl. GNJ06.6. CAL BL)2 

00343 0361 00 01751 10001 ~V{ ACL """" CP ) +4 



ENO. OF. RUN 



PA12.Pa.0.AO.205___.Ji)OAQ +2 

0074 00 4 00266 10010 " +3 

1_0_Q.OD 6_1._0_2J 6 5 1 Q 0.LQ 

747474747474 



C0347 
-QO3.5_Q._O-O2Q-ii.q_0 .00331 

00351 4500 00 01723 
_0 3.5_2 - _ 5.,J.5 _ _0_0 _ i 01667 



+ 4 



.SkK. _S_Y.,J_1_3.3 

TSX SYS)182,4 
TXI SY5)245.1.6 



10000 +5 OCT 747474747474 
.15-O.Ql GNJ.W7.. „I.KA»„ .6NC. OF. MASTERS 

10001 END. OF. DETAILS CAL CpT+~2~3~ "~~ 

-10001 _+_!_ LA_C._____B_U2.rl 
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00353 _7_00000_.l__0q4_t.6__ 
"00354" " 4340 00 1 OObOO 
_0 3 5 5 2 _0 0_Q. . 0.0 3 6 I _ 

00356 0020 00 00360 

00357__ 0020__0_0__0._003_6_1__ 
"00360 0020 66 00370 

00361 .4500 00 0__016_7_0_. 
"00362" 0361 66 01752 
_0 3 6.3 6 2_0 002 0_5_ 

00364 0074 66 4 00266 

00365__ 1 00006 J.. .00 3 6.5. 
"00366" "747474 7474~74 

0.0367 002_0__0g..0.:002_56. 
"6b"376" 

003 70 07 7___J_Q__J___P_0 yjL 



10010. 

"i 66 06 

J0001_ 

16001 
.1.0001. 
16601 

.1000.1 

10601 

_ipoiq_ 

16010 

.1.0010 

16660 

10001 



+ 2 
~+3 

+ 4 



TXL _ SYS) 294, 1,0 

LAS 1) EMPLOYEE. NUMBER. 1 
T R A GNI068 . 



♦ 5 

♦_• 
"+7" 



TRA 
TRA 
TRA 
CAL 
ACL 
SLW 



• +2 

GN)068_ 
"END". OF. RUN 

8LI3 

CP1+46 
SYSU33 



GN)068 



+ 1 
+ 2 



+ 3 

+ 4 
+ 5"" 
_ + 6__. 
"GN)b~69~~ 

END. OF. RUN 



TSX 
_TXI_ 

oct 

TRA 



SYS)182,4 
SYS)245,1,6 . 
74747474~7474 
HIGH.DE_TAI.L_. 



00371 0634 00 4 01473 
00 372.. .0020. _00_ _0_ _Q _1_4_74 . 
00373 0500 00 00125 
0.0.374 QQ7_4__00__4._002.6_4. 
00375 00001 00027 
_0 0376 1 00 0_04 1 0041 3_ 



00377 000005000004 
4.Q Q. _ _Q 7 7_4_ _Q Q_ _1_ _Q 0.Q.7 . . 
"~00401 0500 00 00126 
0_a4.Q2__.QQJ4__00._4.-QOj26.4_. 
00403 00005 00030 
_00,4 0.4__JLJJ3ilQ4^JL_0-0-UJL_ 

00405 000005000004 
. _0_Q4Qi>_ _ .QJJA -Q0_ _l . QQ_0_Q7- 

00407 0500 00 00127 

_ OQ41_O__-QO.7_4__OP--4_0.OJ2.64__ 

00411 00003 00032 

__004JU L_PPP0A_.:L_OP-4-_3-_ 

000004000003 



00413 

00414 07.74._00._l_00_0.Q6.. 
00415" 0500 00 00130 
.00416 . .0 0.7.4. OP. _4_ 00.2 64.. 
00417 06660 00034 
_0 4 2 1 .000 04 _1 0.0 4 13_ 

00421 000004000003 

00422 _ 77.4__00__1__Q0P.0_6_ 
"00423 0500 00 00133 

_004_24__0765 _0_Q._0_ 00043.. 
6042*5 0221 00 01724 
00426 _00 74..00_4_P02.64_ 
"00427 00004 6 00040 
004 30 1__00Q0_4. .1 00413.. 
"004 3l 600064000003 

00432 0774 00_.__00.006_. 

00433 0500 00 00124 
00434__00 74 00 4_0026_4_ 
00435' C0005 6 00025 

00436 I 00004 .1.. 00413.. 

00437 000004000003 
004^0 0774 00_1.P_0.005_ 



_1000JL_ 
lOOOl 

_10001_. 
10001 
lPQlO.. 

16001 

.1Q01.Q-- 

lodbo 

LOQO.O.. 

16661 
JLQQ1P— 

10001 
_L0.0JLO__ 

10000 
..lOPP-Q- 

10001 
..iQO-LQ. 

10001 
_JLQ-_JLQ_ 

10000 
_1Q.0.0.Q. 

10001 

100.1.Q. 

16001 
__1P.QJ.P_ 

10000 
_ .10 00.0.. 

16061 

.looog. 

ibooi 

_1_0010_ 

10001 

_10010_ 

16066 

10000. 

10061 

_100_10_ 
10001 
10010 

10066 

1C000 



AXT 



» + 3,7 



+ 1 

+ 2. 
+ 3 

♦4 
"♦5 
+ 6 



SXA 
TRA 
CLA 
TSX 
P~ZE 
TXI 



department. end, 4 
ue par_t_m_en t_._e_nd+_1_ 
6)"gr6ss 

SYS) 180«_4 ... 

2)g"r6ss", .1 

SYS)267,1,4 



♦ 7 

+8. 

+ 9 

tlO_ 

+ 11 
+ 12 



OCT 
_AXT 
CLA 
-ISX_ 
P'ZE 
TXI 



000005000004 
.7_,.L 

6)WHT 

.5X^L13_a_.4 

2)wHT,,5 
SYS1267.1.4 



+ 13 
_±1_4__ 

+ 15 
,±XJl. 

♦ 17 
. + 18 



+ 19 
.±2-0.. 
+ 21 
+ 2_2__ 
+ 2 3 
+ 24 



OCT 
__XJ- 

CLA 
_I5_1- 

PZE 

TX . 

OCT 
_AXT 

CLA 
.TSX.. 

PZE 

TXI 



000005000004 
.J_i_- ... 

6JFICA 
.JiYSJJ-8_Qi4____. 

2)FICA,,3 
3XSd2J>l-L±*Jt- 



000004000003 

Ail 

51B0NDEDUCTI0N 

SYS1180.4 

2)B0~NDEDUCTI0N,,0 

SYS1267.1.4 

000004000003 

_6_,.L 

5JNETPAY 

35 _ 

CP)+24 
SYS) 180 .4 
DNETPAY, t4 

SYS_>_2_6_7,_._,_4_ 

000004000003 

.6.1. 

5) HOURS 

SYS) 180,4 



+ 25 
__26_ 

+ 27 
.+2_8-. 

+29 

+ 30 



OCT 
AXJ 
"CLA 
LRS 
OVP" 
TSX 



+ 31 
+ 32 
+ 3 3" 
_"34 
+ 35 
+ 36 



PZE 

TXI 
OCT 
AXT 

"cla" 

TSX 



+ 37 
+ 38 
♦ 39 

+ 40 



PZE 
TXI 
OCT 
AXT 



HRS, ,5 
SYS)267,1,_4 
"6o6bb46"00b63 
5.1 



DATE 10/18/61 TIME 2.45 ACCOUNT 10. CT PUBLICATIONS 



PAGE 13 



-Q?>*i—_05po__oq_o._qoi3.i.... ioooi +4i cla 5) insurance 
O0442 0074 oo 4 00264 10016 v« tsx IvsYiaS V ■ 

3443 00003 00035 10001 + 43 PZE INS PftKM 1 

00444 i 00004 fooTH — TooTo ~ _ns .preh,,3 



uj-r-tt i uuuut l UUtlJ 10010 +44 TXI SYS)?67 1 4 

-Q!?.^5„00_OppAQ0poq3 .10000.... +45 OCT 000004000003 

00446 0774 00 1 00006 10000 V4 _ 6 A~XT ^-."-"-^w """"». 

-9J?A*Z-__05Q0_ 0.0.0 00132 10001 +47 CLA 51RETIRFMFNT 

00450 0074 00 4 0026V "" Yddio- +V8 ftx " SYSTf lb^i" L 

^J^iP^p^p00,pq03j: 10001 +49 PZE RFT.P^..n 



00452 I 00004 1 00413 10010 +"50 fxl SYS17A7 i \ 

-OPA53.__O.OOPP_4.00P00.3 10000 +51 OCT 000004000003 

00454 0774 00 1 00006 10000 V52 AXf y- U -"- U -^- - - -? - 3 - 

.PPA55._.450p._qO 01725 10001 +53 CAL CPJ+25 

00456 0320 00 d~002Q~~~Y6dbY -+54" "A'NS SYdYparTmfnY 

0457 076 00 00006 ioqoq >55 £_£ 3)DI.PARTMENT 



00460 4320 00 01700 10001 +"56 ANA cTT*T" 

.PPA6L_A602_.o_g_p__ogp.2.p... 10001 +57 ors 3>dfpartment 



00462 0441 00 0175*3 """TddoV +~58 To I C>T**7~ 

-PPA63._P.604 00.0 00205 10010 +59 STI SYS'1131 

00464 0074 00 4 00266 ""VdO I IT "+60 Ys~X SYSTlff" V"" 

00465 1 0017 1 003 63 1QQ1Q. +61 TXI SYS 243 1 15 

00466 0441 00 0T754 10001 jf_j LTl CP)'-48 

-OpA.7___0.604 00 00205 10010 +63 STI SYS! 133 

O0470 0074 00 4 d0266~"To6Io" V64 Ys'x f vYf _fl>"_; 

-PPA71 . 1 00004 1 00363 10010 +65 TXI SYS 243 1 4 

00472 0441 00 "01755— TOOOl +~66 X6l ^+49 """ 

00473 0604 00 00205 10010 +67 STI SYS) 133 

00474 0074 00 4 00266 tOOlo +TI TSX ^na; u 

.PPA7.5...LPP.0.02 I 00363 10010 +69 TXI $YS 243 1 2 

00476 044! 0d"0"6lY56""T06bT +7Cf "lDI C>) + 50 ""-" 

.P_P^77 .06PA.OO 00205 10010 +71 STI SYS) 133 

00500 0074 00 ~4"6o~266"~766Yo"~ +"72" fSx"""Sv"ln "rff"! 

00 501 1 00Q02 1 00 363 10010 +73 TXI SYS 243 1 2 

00502 044] 00 0T757 10001 +T4 toi CP)+51 



P-O.50_3.__Q6_0A.Op 00205 100 10 +75 STI SYS) Hi 

00504 0074 00 4"6b'266""l"6oVd wV fsx"""SYS)ia2 4 

OQ50_5___1__00002__1_00363 10010 +77 TXI SYS 243 1 2 

00 506 0500 00 OOT3*""f6ooT ; 7 8" "CLA""" 3fB0N0PURCHASES 

00 507 00 74 00 4 002 64 10Q1Q > 7 9 TSX SYSI180 4 

o°otn ? SSSSI ? aTd }S?I ^ *» 2)B0N0EN0MINAT10N, t l 

yo.itl...l._0P.0_q4__l ..00413 10010 +81 TXI SYS) 267 14 

00 512 000C05000004 ToOOO" "+§2 OCT 000005000004 

PQ:?_1.3.... 07.7.4.0.0 1 00007 10000 +83 AXT v""^""™^ 

00514 0074 00 4 00011 10010 +84"" TSX* ToclY"* 

flO-LLS S-JOO.Q.0 O A0QA,„ 100 10 +85 PZE PAYFILE O 

00!>l6 7 00024 00020 " 10001 +"5"_ TT^T PA v ,crn_A 



-.-.,__. . _._,,__.-, u uuu_;_i IUUU1 +86 IOST PAYRlFfnun ^9?T 

PQ!5.1.7.._007.4.. 00.4. 00261 10010 +87 TSX S-5s?i77 J" 

00520 00000 ooooi lobfo +lf_" pz"e" Toclt 

00 5^1.. .00.7.4. 0.0. .4. 002 62. 100 10 +89 TSX SYSJL78 4 
00522 01727 01726 T0Y0. ;Vd PZE " CP) ^IcVi^T- 
AC. 3.2;i_A_0._.7_3 1._0_0 17 3 .1 1 0,1 +91 P/f CP U I 

00524 0074 00 4 00261 100 10 7*1 IT* kflij. S , , CP ) +29 



10010 +92 TSX SYS) "77 4 

3 QQ52.5..0..00000.0 0000 1 10010 +93 p Z £ _nr 1 

O05i26 i 00000 00050 10016 V<j£ txY foe 1*0 "6 

2 00*27 4500OO.Q_OOO47_ 10001 CHECK. NEW.QEPT CAL CURRENT. DEPT 
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00530 4763.00 00022. 10.000 + 1 .k G -L 13 

"66531 4320 00 6 01732" 10001 +2 ANA CPJ+30 
00 532 0602 00 01621 10001 + 3 SLW KSJO_ 



00533 


0535 00 


i 01670 


10001 


+ 4 


LAC 


BL)3,l 




00535 


4500 


00 


1 00000 


10000 


+6 


CAL 


2)DEPARTMENT,l 




00537 
00540 


4340 

0020 


00 

00 


01621 
00542 


10001 
10001 


+ 8 
+ 9 


LAS 
TRA 


RS)0 
•+2 


ni 


00541 


0020 


00 


00546 


10001 


♦ 10 


TRA 


GN)070 


11 


00543 


0634 


00 


4 01473 


10001 


+ 12 


SXA 


DEPARTMENT. END t 4 

DEPARTMENT. END+1 


Z\ 


00545 
00546 


0020 
0020 


00 

on 


00547 
00563 


10001 
10001 


+ 14 

GN)070 


TRA 
TRA 


GN)07l 
COMPUTE. PAY 




00547 


0441 


00 


01744 


10001 


GNJ071 


LDI 


CPJ+40 




00551 


0074 00 


4 00266 


10010 


+2 


TSX 


SYS)182t4 




00553 
00554 


4500 
0320 


00 

no 


01714 
00047 


10001 
10001 


+4 
+ 5 


CAL 
ANS 


CPJ+16 
CURRENT. DEPT 




00555 


0535 00 


I 01670 


10001 


♦ 6 


LAC 


bL)3,l 




00557 


4500 


00 


1 00000 


10000 


+ 8 


CAL 


18 




00561 
00562 


4320 
4602 


00 

no 


01715 
00047 


10001 
10001 


+ 10 
+ 11 


ANA 
ORS 


CP)+17 
CURRENT. DEPT 




00563 


0535 00 


1 01670 


10001 


COMPUTE. PAY 


LAC 


BL)3,1 

SYS)294 t lj0 




00565 


4500 


00 


1 00001 


10000 


♦ 2 


CAL 


2)DATE.l 

BL)2_,2 _ 




00567 
00570 


7 00000 
0602 00 


2 00446 
2 00005 


10010 
10000 


+4 
+ 5 


TXL 
SLW 


SYS)294 f 2,0 
110ATE.2 




00571 


4500 


00 


01670 


10001 


+ 6 
+7 


CAL 
ACL 


BL>3 

CP1+52 




2 00573 


0602 


00 


00204 


1001.0 


+ 8 
+ 9 


SLW 
TSX 


SYSU32 

SYS)182,4 ___ 




1 00575 
00576 


1 00003 
0601 00 


1 00270 
00110 


10010 
10001 


+ 10 
+ 11 


TXI 
STO 


SYS)l84,l,3 
3)H0URS 




D 00577 


0441 


00 


01761 


10001 


+ 12 


LDI 
STI 


CPJ+53 

SYS) 133 




9 00601 


4500 


00 


01670 


10001 


♦ 14 


CAL 


BL)3 

CPI+52 _ 





"00 603" b~6~02 00 6"0b~264"~"~l00l6 +16 SLW SYS) 132 
00604 0074 00 4 00266 1001.0 +17 TSX SYS)182,4 



"00605 f 00004 1 00271 10010 +18 TXI SYS) 185, It 4 

.00606 000004000003, _ 10000 _ +.19. OCT. .0000040000.03. 

6660 7"" i "06602" "1 "00324* looio +20 txi sys)212,i,2 

00610 1 0000.3 1 00301 10010 _ +21 TXJ „SY§_)_l_?3j l.t_3__ 

"o6Vu"Y"666b~5"rb634i iobib +22 txi sys)225,i,5 

00612 0500 00 0011 1 0001 +23 CLA 31H0URS 



00613 0340 00 01701 10001 +24 CAS CP1+5 

3 _ 00614 0020 00 0.0617 „ 100 01 + 25 JRA •♦? 

""60615" o'bio bo b 00637 lbbbi +2~6 tka gn)072 

2 00616 0020 00 00637. 10001 +27 JRA. _GN]07_2. 
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.9P 6 lI..il560__00 01702__ 10001 +28 LDQ CP1+6 



0200 00 00110 
4600 00 01623 



10001 
10001 



♦ 29 

+ 30 



MPY 
STQ 



3)H0URS 
RSll+O 



00620 
_0q62_l_ 

00622 0560 00 01703 10001 +31 LDQ CP)+7 

_0062 3 0200.00 01733 .1000 1 + 32 _ MPY CPI+31 

00624 4600 00 01621*" " 10001 " " ' +"33" """"STQ RSYO~~" 

g0625_ 0500. 00. 01623 10001 +34 CLA RS)1 



00626 
00627 



0402 00 01621 
_C1JL31 00_0 „OJ3000_ 

~ 00004 



10001 
10000 
10000 



+ 35 
+ 36 

"+TT 



SUB 
XCA 



r;sio 



00630 0200 00 2 

00631. .0131 00 00000 10000 +38 



MPY 
XCA 



URATE, 2 



00632 0361 00 01734 10001 + 39 ACL CF>T+32~ 

.PP-%?L__P.7 6 A.Q9.- _'_QO.PA3___Ji .ooo +40 lrs 35 



00634 
00635 



0221 00 01735 
4600 00 00102 



1C001 
10001 



+41 
+42 



00636 0020 00 00650 10001 +43~ 

.PP_6.7___C<535 00 1 01667 10001 GN1072 



DVP 
STQ 



CPI+33 
4JGR0SS 



TRA GN)073 
J. AC BL)2,1 



00640 7 00000 1 00446 10010 +1~ 

-PPA^L.P. __ , P__QQ_J__00004 10000 +2 



TXL SYS)294,1,0 
LDQ URATE, 1 



00642 
00643 



C200 00 00110 
C131 00 00000 



10001 
10000 



♦ 3 

♦ 4 



00644 0361 00 01736 1CO01 +5 

.PPA*5__.Q.765__00_P 00043 10000 +6 



MPY 
XCA 



3) HOURS 



ACL 
LRS 



CP)+34 
35 



00646 0221 00 01733 10001 +7 

.9_°-6*7___4600__00_p_ 00102 10001 +8 

00650 0774 00 7 "6 0653"" ToOOl GNf673" 

00651 6 34 00 4 01165 10001 +1 



DVP CIM + 31 
AIQ _. 4) GROSS 



00652 0020 00 01166 10001 +2 

00653 0774_ 00 7 00656. 10001 +_J 

00654 0634 00 4" 6~122"6 "~"l66"oT +4~ 
.-OQ655 _002_0 00 01221 1000_1 +5 

00656 05~60~ 00 016*74 10001 + 6~ 

J?P 6 57 2 00 00 173 3 10 01 +7 



AXT 
SXA 



TRA 
AXT 



• +3,7 

P ICA, ROUTINE, 4 



FICA.ROUTINE+1 
-*+_3 t 7_ 



SXA WtTHOLDING. TAX. ROUTINE, 4~ 
.IRA, .W.-LTHOLJ) I NG_._T AX_._%QU JJ NE+ 1 



00660 0131 00 00000 10000 +8 

P-P66J___05_3_5__00 1_PX667 .0001 +9 

00662 7 00000 f 00446 ""lOoTd + lb" 

P-Q§6_3.__Q3_4p_.0p..l. 00014 10000 +11 

b"o66~4 6b2~o~"6b"6~6b666 fcboT +1Y 

0.06 6 5 02 00 0672 1 0001 +13 

00666 0774 00 7 00671 10001 +14 
P_0.667_ .0634 00 4 01262 .10001 +15 

00670 0020 66 01263 10001 +16" 
006 J_1___P 0.2.0 _0P_. .0_007 02 1000. . +17 

00672 0441 00 6 01762 10001 "gnT074 
0067.3 0604 00 00205 100 1_Q +___ 

00674 0074 00 4 00266 10010 +2 
P_06_7_5.___l.._Q_Qg07____P_Q.3__3„_ 100.Q +_3 

00676 0441 00 01763 10001 +4" 

Qg6_77___9.6.Q4_o_q._g_p_o___5 i_o.o.i.q_ +s_ 

00700 0074 OO" 4 00266 10010 ~~~+~6~ 

P 070 1 1 000 10 1 00363 10010 +7 

00702 GN)075 
Q,l. 74-1 GNJ08.8 

00702 0774 00 4 00711 10001 +1 
QQ7P-3-__PA3.4.PJl_4_P_L4g4- _1P00L _ +_2_ 



LOQ 
MPY 



CP)+0 
Cl__+31 



XCA 

tAC_. Bl.)2jl 

TXL SYS) 294, 1,0" "" 

-QAJl- - IIBONDEDUCTIQN.I 

TRA *+2 

TRA GN)074 



AXT »*3,7 

-SXA__. BOND. ROUTINE, 4 

TRA BOND.ROufiNEVl" 

.JRA_ - PN)075 

LDI CPJ+54 

STI SVS)133 



TSX SYS)182,4 
_IX_I_ SY__243. t l_,7 

LDI CP)+55* 
.SJ-I-.— _S_Y§j.U3 

TSX SYS)182,4 
-1*1 -S YS)243.1.8 



-E-QU.- Q.P)+37 
AXT Gn1086~,4 
.SX.A. AE_RCH_4 
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0071' 
00 720 
0O721_ 
00722 
00723 . 
00724 
007.25.. 
00726 

_00727__ 
00730 
00731. 
00732 
00733- 
00 734 

_00735. 
00736 

.00737. 
00740 
0Q_74l_ 
00 742 

_00743. 
00744 
0074.5. 



0402 00 001 11 
L 2 0_ 00_.0 _D 1 40.5 ._ 

~0500 00 00102 
0402._00_0._00J_Q_5__ 
0402 00 00106 
4 Q 2_ .0 0_ 0. _Q 01 0.3 _ . 
0402 00 00104 

_0 535 ,00„l_P.166 7_ 
7 00000 I 00446 
0402 _QO__1.-QQO.14__ 
0601 00 0. 00107 
_0500._00_0.001 14.. 

" 0400 00 00102 
060l_.00_0_.001.14__ 
0500 00 00121 



00746 
00747 



.040.0.00. 
0601 00 

. 0500.00 
0400 00 
0601.00 
0500 00 
0400 00. 
0601 00 



00.103- 

00121 

001.20. 

00104 

00120. 

00116 

00105. 

00116 



00750 
00751_ 
00752 
00753 



00754 
e _ 00755 

00756 
7 . , 00 75.7 

00760 
5 00 761. 

"" " 00762 

5 _ 00763. 

00764 

1 _ _ 00765 

00 766 

5 . 00767 

00770 

2 00771 



0500 .00.0 00U5.. 
0400 00 00106 
0601_00 _0 00U5_ 
0500 00 00122 
0400 00 0..001.07. 
0601 00 00122 



0500.00 
0400 00 
0601 00 
0500 00 
0400 00 
0601 00 



00113 

o odiio 

00113 

1 00007 
00102. 

00007 



0500 00 1.00010 
0400 00 00103 
0601 00 I 00010 
0500 00 1 OOOll 
0400 00 0. 00104 
0601 00 l OOOll 
4500 00 .0 00006 



10001 
10001 

16661 

J 000 1 
1 0001 
1000 1 

ioooi 

l.OOOl 

ibbbi 

„10001_ 
10001 
l_O00l_. 
IOOOI 

..LQQO.l.. 
loobi 

_1C001_ 
10010 
_L000O__ 

ioooi 

10001.. 
10001 
_10Q01_ 
I 000 1 
1000.1. 
IOOOI 

ioooi. 

10001 
_ IOOOI. 
10001 
10001. 

ibobi 

IOOOI 
100 01 
_10001_ 
1 0001 
IOOOI 

ioooi 

10001 

ibodi 
ioooi. 
ibooo 

10001 

loobo 
icooo 
ioooi 

10000 
10000 
IOOOI 

ibooo 
ioooi 



NET 



+ 2 
...t_t. 

+ 4 
+ 5 



CLA 
_S_yB__. 

SUB 
.J_l_8___ 

SUB 

LAC 



4)GR0SS 

4>J-_1Q_A_ 

4)WHT 

3JRtTIR£MENJ_ 
3) INSURANCE 

J_k.) 2 t \ 



+ 6 
+ 7_ 

♦ 8 
+ 9 

+Ib 
JtJJL 



+ 12 

.+13.. 

♦ 14 

+ 16 
-±!-7_ 

+ 18 

+ 19. 

+ 20 
.♦21 

+ 22" 
_±i3_ 



TXL 
5_l_B . 
STO 
_C_LA__ 
ADO 

j>jl___ 

CLA 
-ADD.. 

STO 
_CLA. 

ADO 
..STO 



SYS)294,1,0 
IJBONDEDyQTJ.ONji. 
3 ) NET PAY 
5J.G_R0.S-S_ 

4)GR0SS 
_£lfc_ft_S- 



+ 24 
+ 25 
+ 26 
+ 27 
+ 28" 
+ 29 
+ 30 
+ 31 
+ 32" 
+ 3.3 
+ 34 
+ 35 



CLA 
ADD 
STO 
CLA 

ado" 

STO 
CLA 
ADD 
STO 
CLA 
ADD 
STO 



41RETIREMENT 
3)ReJXR.6MEJiI. 
41RETIREMENT 
4L_N5_U_RAN_C.E__._ 
3) INSURANCE 
_±1U_SUR_AN.CE_ 
5)FICA 

4)FICA 

5>fTca~ 

5>rfHT 

4)WHT 
5)W HT 



4)NETPAY 
3)NETPAY 
"4)NET _ PAY" 
_4)H0URS__ 
3 ) HOURS 
4)H0URS_ 



CLA 
ADD 
STO" 
CLA 
ADD 
STO 



DGROSSil 

4)GR0SS 

l [GROSS. I 
1 .RETIREMENT^ 
"3) RET IRE MEN T 
JJRE T I R EMENT.l 



♦ 36 CLA 1) INSURANCES 

+ 37 ADD 3) INSURANCE 

♦ 38 STO " 1 ) IN SURANCE , 1 

+ 39 __CAL _ 3 > EMPLOYEE. NUMBER.. 



date 16V18/6F Time "2T45 account 



ID. CT PUBLICATIONS 



PAGE L7 



00772 
00 773 

00 7 7* 

00 775 
00776 
00777 

01000 

OlOOl 

01002 

01003 

01004 

01005 

.. 01006 



__ .0.535. .00 2 01670 

7 660OO 2 00446' 
0560_00_2 00000 

4773 00 
._ 0771 00 

4 76 3 00 
...0602 00 

476 3 00 
0560.00 

4773 00 00022 
.— V.63..00 00022 

3602 00 0000 7 
_ __50P_ .00. _0 01725 

0320 00 00024 
_P760._00__Q_00006 

4 320 00 2 0000 l" 
. 4602__00.p_ 00024 

4500 00 01714 
__0.320_.P0_0 .00024 

<»500 00 2 0000 I 
-_P771_00 00006 

4320 00 0~"6l715' 
- A60 2. .00. 0_ .0002.4 

4500 66 06025 

__4765__00 00030 
4500 00 2 00001 

—-V.76.3_g 0_0_ 00030 
0602 00 6 00025 

.--5PP__gO _0 01725 
C320 00 0" 66020 

-C_76_o__gg_ 00006 

A 320 00 2 660OO 

___ 6 2_0 00 go 2 

4500 00 00020 

-Q5_6_g_gg_.2 00000 
4773 66 o~oo*bi« 

-Q 7.7.1. 00. _g 00022 
4 763 00 60022 

_0602..00_.0_J_0020 



10001 



+40 



LAC 



I3LJ3.2 



00000 

.00022 

00022 

.0. .00006 

66622 

.0 00007 



10010 

jqgog 

1660O +43 RQL 

.1.0000 +A4 ARS 



+41 
+ 42 



TXL 

LOQ 



SYS)294,2,0 
-(EMPLOYES. NUMBER. 2 



10000 
10001 



10000 
10001 



+45 
+46 



LGL 
SLW 



+47 

+48 



18 
JJAMPIOYEE. NUMBER 



10000 + ->9 

.1.0000 +50 



01007 

_01010 
01011 

.01012 
01013 
01014 
01015 

_01016_ 
01017 

.01020 

oidil 

01022 
01023 
_P1024_ 
01025 
01026. 
01027 
01030 



10001 +51 

.i.ogg.i. +52 



LGL „8 

LOQ .KEMPLOYEE.NUMbER+1 

RQL 18 

LGL 18 



10001 
10000 



SLW 
CAL 



♦ 53 
+ 54 



3)EMPL0YEE.NUMBER+r 
CPJ+25 



10000 +55 

1000.1. +56 



ANS 
CUM 



4) MONTH 



01031 
01032 
01033 
01034 



01035 
0103.6 
0T03 7 




ANA 2JM0NTH.2 
0R§ 4JJM0NTH 



CP)+16 
4JDAY 
2)"0AY,2 
6 



CP)+17 
4) DAY 
4 ) YE"AK 
24 

2>YEAr72 
__._: 



4)YEAR 
C.Pl+25 
3)DEP~AR~TMEnT 



2)0EPARTMENT,2 
3)0SPARTMENT 



3 (EMPLOYEE 

2IEMPL0YEE.2 
... 

18 

"ia" 

31 ' EMPLOYEE 

6 

3JEMPL0YEE + 1 

6 

.3.0 ___ 

3~j EMPLOYE ~E+_~ 

__L__t_L_ 



.01040 

01041 
01.042 

01043 
01044 

01045 
01046 

01047 
01050 

01051 
Q1052 

01053 
01054 . 

01055 
01056 

01057 
31 060 



4763 00 

.0560 00 

A 773 00 

.4 7.6 3.0.0. 

0602 00 
4500 00 
0320 00 
4 500 00 
0771 00 
.4.3.20.00 
4602 00 
0.-60 00. 



00006 
.00021 
00006 
00036 
00021 
.0173 7 
00000 

ooooi 

00006 
.01740 
00000 
00000 



4763 00 00030 
0. 60 00 .2 00001 
4773 00 00014 
4765 00 0.00030 



3 (MONTH 
-2.l_ID_tT.Ht2 
6 

-CJ___+_3_6__ 
3 (MONTH 
3 ( DAY 



24 

i-O.A.Y.,2 
12 
-Z4___ 



DATE 
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01075 
' 01076 0500 00 00105 

_p 1 7 7 QJ.__P___PP 2 64. 

oTlOO 00003 00032 
01 101 1 00004._l__004.l_3 

' oYio2"~"o6bob46bboo3 



10001 
10010. 

16600" 

_10000 

ldobi 

1001 .0. 



♦ 110 

♦ 111 

♦ 112 

♦ 113 

+ 114 

♦ 115 



PZE 
TXI 
OCT 
_AXJ 
CLA 
TSX 



2)FICA,,3 

SYS) 267_l-f>--. 

000004000003 

6,A 

4)WHT 
SYS) 180.4 



01103_ _0774 0Q_JL_Q0P06- 

0Y164 " o5ob 66 o 00106 

1JL 5 074 4 00 264_ 
"01-06 00005 00030 
01107 _1 00004__l__0041_3__ 

"bYiio"" 660005000004 

0111l_ 0774 00_.l__Q0P0.7_ 
"bYll2 ""0500 66 00107 
_0 1L13 0765_00_0_0_OP4 3_ 

6"lll4 0221 00 01724 

01115 Q974_00__4.9P_2_64_ 
"b'lliV" "ob6o4 00040 

01117 _ 1 Q00Q4____9P.4_1_._ 
"bll20 000004000003 
_ftl 1 2 l__Q.774_Qp_l_0_000.6_ 
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_RnMnAr.r.iiMi) i AT I ON. 1 

4)B0NDEDUCTI0N 

J_)_8QN_DE_DyC_T_I0N_,_l. 
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0074 00 4 00266 10010 
1 00003 1 00270 1PPAQ. 

" oVo'i' bb" 6 "06163 10001 

0020 0.0 0.0072.2 IOOOI. 



+ 20 

♦ 21 
+22 
+ 23 

♦ 24 
+25 



TXI 
APJ-. 
STI 

.rs.x. 

TXI 
STO 



SYS)225,lt6 
PI )2 

SYS]l32 

SYSJ1_8_2_4_„. 

SYS)l84,l,3 

3) INSURANCE 



+ 26 

.SiX. 
+28 
+ 29 
♦ 30 
♦31 



LDI 
.5 IJ. 
LDI 
STI 
TSX 
TXI 



CPJ+61 

SY§)133__. 

PI~>3 

SYS)132 .. 

S"YSU82,4 

SYSUB5.1.4 



+ 32 
+ 33 
+ 34 
+ 35 
*3~6 
+ 37 



OCT 
TXI 

fxi 

TX.I 
LDI 
STI 



000004000003 

SYS)212 L 1 1 3._ 

SYS")"l93,lt3 

SYS>225__1_,_6__ 

PI)3 

SYS)132 



+ 38 

+ 39-. 
+40 

.+41. __ 

"gnY6b2 
search . end 



TSX 
TXI 
STO" 
TRA 



SYS1182.4 
SYS) 184,1, .3... 
3")RETIREMENT 
NET 



_0 2 0_6 0_0_Q .1 4 4_ 

0774" 0.0 60000 

0.500. 00 ..0. .001 1_3_ 
0074 00 4 00264 
0000.5. .0. 0.005 l_ 



_1_000_1_ 

10000 

10001 

10016 

10001 



TRA* 



SEARCH 



DEPARTMENT 
♦ 1 
+ 2 
+ 3 



.END AXT 
CLA. 
TSX 
PZE 



4)H0URS . 
SYS) 180, 4 
2) HOURS,, 5. 
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ID.. CT PUBLICATIONS 
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01477 I 00004 1 00413 
01500 000004000003 
.0 150 1 _0 774_po_ 1_00005_ 
01502 500 00 ~0 00114 



10010 

iobbb" 

J 000_ 
10001 



+ 4 
*V 
+ 6 



TXI 

OCT" 

AXT 



SYS1267, 1,4 
6 00004 00000 3" 
5„1 



.01 503. 00.74 00 4 00264 10010 + 8 TSX SYS) 180 4 

oi504 o oooo'ro" o"d653"~"Yd66i Vg pTe 1 £-R-ri!v'-Y 

.0.1505 1 00004 1 00413 10010 + 10 Tx , SYS>267 1 < 
01506 000005000004 -"" Sj- 5 -'- 2 - 6 - 7 -'- 1 '' 



10000 



♦ 11 

+ 12 



OCT 
AXT 



.01507 774,_00_ l_00007 1_000 0_ 

oi5id osbo oo "o obli'5~ loooT" +7J CLA 

01511 0074 004 00264 10010 _ +14 TSX 

o oobo5 b 06654 ~" Tddbi Vis PIE 



000005000004 
7,1 



5)WHT 
SY_S)18p_,_4___ 

-^l-i-i-^^L-2?-*- 1 - 3 -- -S22- 1 - - -ti.6 tSJ llTnli'i^ 



01512 



01514 030005000004" 



01515 

01516 

01517 

01520 

01521 

01522 

01523 

01524" 

01525 

01526 

01527 



-° 7 7.f*__Q.0 1. 0000 7 

500 00 00116" 
0074 00 4 00264 
00003 "00056 



10000 
10000 



+ 17 
+ 18 



OCT 
AXT 



10001 +19 CLA 

100 10 +20 TSX 

10001 +21 "pze" 



000005000004 
7,1 



51FICA 

S- Y .SL18P.«.* 

1 00004 1 i04 13... .100 10. .+.2.2 TXI SYS)267a,4 

+23 o~ct ~"~bbb~bd4bbb6b"3~ 



000004000003 
_0 7 7 4_ 0__l_0 0006 
500 00 00117 



10000 



10000. 

"fob oi 



+ 24 



AXT 



6,1 



„„, „ * 25 CLA 4) BONOEDUCTION 

0Q7«_QQ_«_ 00264 10010 +26 TSX SYSH80.4 

00000 00060 10001 "+27 >"2E 3"l¥QNDEDUCTrri'N"o' 

1.00004. l..P0 W .3.„.l;QQ10 +28 t" SYS?26^uI " 



01530 000004000003 



.0.1531 
01532" 



J? ''7A_PP_1_ 00 6_ 
0*00 00 00120 



10000 
100 00 

10001 



+ 29 
+ 30 



OCT 
AXT 



000004000003 
6,1 



nu „ -.-,. nn , „„„ + 3l CLA 4HNSURANCE 

?vl!?— S"ZvJ? ->-9-026* .100.1.0 +32. TS.X. SYS) 180,4 



D1534 00003 00061 10001 

-0.1535.. _ 1.00004 1 00413 _ IQ010 

01536 6cooo4Qoo"6b3 "~ibbbb"~"~ 

_0 I 5 3 7 7'74_QQ_l_00006 10000 

01540 0500 00 6 00121 lOOOl 
--'U5*_l-_. 00.74 .00 .4 00264 100.10 

01542 o oodbb b 00063 ~ 16001""" 

-JU543 I 0.0004 I 00.413 10010 

01544 6bbdo4bdbob3 lobbo"" 

__« l 5.4 5 7 74_ P.0_1_0 0006 100 00 

01546 0500 00 00122 ~ 10001 
-0_1_5_47 ..00 74 .00. 4 00264 .1Q010 

01550 00003 00064~"~~ fodo"l 
.-Q15_5_1.__1..Q0004 1 00413 _ 1Q01.0 

01552 000005000004" "IcOOO 
_0.l 5 5 3 0774 0_1__Q 000 7 1 000 

01554 0500 00 00123 10001 
.01 5.5.5. . . Q 0.74 _ 0.0. .4 _ 0.2 64. 19010 

01556 00001 00066 "lOOOl 
-CI 55.7.. .J.jJQOOA .1. 00413 100 1Q 

CI 560 000005000004 10000 
-0 156 1 07 7_4_00_JLJD000 7 1 0000 

01562 0074 00 4 00011 
-QI563._P__q000p_0_P4005 

01564" 7 00024 6" 00044" 
.01 56 .5 -.0 500 00 00124 



+ 33 

♦ 34 
+ 35 

♦ 36 



♦ 37 

♦ 38 

♦ 39 
+ 40 
♦Vl" 

»+? 



PZE 2)INSURANCE,,3 

.IXJ SYS)267 t lj4 

OCT "00000400 6 003 

AXT 6,1 

CLA 41RETIREMENT 

_ISX. SYSJ180.4 

PZE 2)RETTR~EME~Nfi^0" 

.TX.I SYS)267 t lj4 

oct "odbbb4~doboo3 

AXT 6.1L 



+ 43 
+ 44 
+"45" 
+ 46 
+ 4 7 
♦48 



CLA 41NETPAY 

J.SX SYS) 180,4 

PZE 2)"NE"fpAY","^3"" 

.JXJL SYS) 267., 1,4 

oct o"66b"o5"6obdb4" 

AXT 7.1 



+49 CLA 2)B0NDPURCHASES 

-♦50. TSX... SYS)J80!4 

♦51 PZE 1 TBOND'PURC'HASEsVt Y 

-♦5-2. JX.I. _S_YS)267,1,4 

+ 53 OCT ooob"o5"6obo"b4 
-±5A Ail Zil__ 



10010 
.10010 

ibo"di 
10001 



♦55 TSX 1009,4 — 

.♦-5.6 P.ZE PAYFILEjjO 

+ 57 IOs"f o"EPARfMENY."foYALr,Yb' 
-♦A.8 CL.A. 5) HOURS 
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01566. 04 0. 00 _ 0. _0 1 l_3_ 

"01567 "~06oY"66 00124 

01570__OJO_0_0_CM) 00125 



10001 
10001 
10001 



+ 59 
"+~60 

Jtii 



AOO 

s"fo 

CLA 



4) HOURS 
5")"h"o"uRS 
6JGR0SS 




01601 



0500 o6"o"66i3o""T666Y ♦*<> cla sjbondeduction 



1 602_._04P_0._Q0_ 0..O0.U 7 1000.1 



01603 0601 00 00130 

1 604 050 00 0131_ 

~01605 0400 00 00120 

01606 0601 _QQ__0__00_l_3_l. 

01607 0500" 00 00132 
P1610 _0400 _QQ_P__0 0.12.1. 

"016li 0601 00 00132 
J} lj& 1 2 050 00 00 133_ 



01613 0400 00 00122 
Old 1 4 Q60J _Q0__0__Q0J_3_3 
01615 0500 00 00134 
1_6 1 6___Q40P__00__0._00.12_3 
016lY~ 0601 66 00134 
JU 6iUL_JiOJ2i>_6.QJB_ai£tl2__ 
5 00000 01671 
5_P.PQ0P__Q _0J._6_6.6__ 
00000 00035 



10001 

JLOJtPJL 



+72 
+ 73 



STO 
CLA 



5JB0NDEDUCTIQN 
5) INSURANCE 



10001 
_10001 
10 001 
lOOO.l... 
10001 
100 01 
10001 
10QP_1__. 

io 66 1 

10QP.1... 
1000 1 
_15QA1_ 
00001 

ogo_o_i_. 
iobio 

.1MLQ.Q- 

10000 

0000L_ 

oo'ooi 

0000_1_. 

obboi 
ooppi 
lbodb 
_ippop_ 
10660 
ipooo _ 
~i666o 

10000.. 

ibb'66 

_10000_ 

i do 6 b 

10000 

i obbo 
ioooo_. 
l obbb 
_ioooq_. 
ioboo 

10000 

ioboo 

10000 



+74 
+75 
+76 
+ 77 
+78 
+79 



ADD 
STO 
CLA 
ADO 

s'fo 

CLA 



4) insurance 
5) insurance 
5) retirement 
4) retirement., 
"s'jr'et'ire'ment 

5)NETPAY 



+80 
.+ 81. 

■♦8? 
.±8.3_ 

+ 84 
f.N)083 



ADD 
STO 
CLA 
ADD_ 

s'fo 



4)NETPAY 

5JNETPAY 

3)B0NDPURCHASES 
2 >_B.QNP_P_UR£H_A_S6_;_ 
3)BQNDPURCHAS£S 
DEPARTMENT. END 
2 

..._B_U1 

I0O29 

0_ 



____! 



.0.1666 
01666 
01667 
01670 



Q _0_QOOP--Q_PP_PQO_ 
00000 00000 

_5_0000p_Q._0 1 62 1_ 

01621 2 00000 00036 
01657 2 00000 0_0P007. 



+ 1 
+ 3 



01666 2 00000 00003 
_01671 2.00000 0_P0_P03. 

6i6Y4"~~ooo"66bob6obo 

Q1675 OOOOOOOpOOOl. 

~01676 446060606060 

01677 .24 6 06 06.0 60 6Q 

' 01 70b" 2 76366606060 

000000000620 

'bbb600b666l7" 
06600000002 4 



RS) 
TS) 
BL) 
PI) 
CP) 



USE 

-QRS~ 
PZE 

-UZ-- 
PZE 
USE 
BSS 
BSS 
BSS 
BSS 
OCT 
OCT 



30 

7 

3 _ 

_3_ __ 

oboobooooooo 
000000000001 



+ 1 



01701 
01702 
01703_ 
01704 
01705 
'01706 
01707 
01710 
01711 
01712 
01713 
01714 
01715 



+ 2 
♦ 3. 
+ 4 
_+5 
+ 6 
+ 7 



OCT 
OCT 
OCT 
OC.T 
OCT 
OCT 



4460606Q6060 

2 460 60_6_06 0.6.0. . 
"276360606060 

OOPPOO 000.6.20. 
"66o006o6obl7 

0000000 00024 



000066000014 

000000000003. 

000600034100 

006666060022.. 

000000000015" 

000000000002. 

606060011010 

7300C2606060 

"777777000077 

066000 7 77700 



+ 8 

+ 1 
♦ 10 
+ 11 
+ 12" 
+ 13 



OCT 
OCT 
OCT 
OCT 
OCT" 
OCT 



+ 14 
+ 15 
+ 16 
+ 17 



OCT 
OCT 
OCT 
OCT 



000000000014 
0000.0000000 3. 
"b66bb"6634l66 
000000000022 
b66bo666bbl5 
0000 000 p_PPQ_2_ 
606060611010 
730002606060 
"7 7777 7660b 7 7 
000000777700. 
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01716 
01717 
— 01720 
01721 
_ 01722 
01723 
01724 
01725" 
—01726 
0172 7" 
_01730 
01731" 
01732 
01733" 
__01734 
01735" 
01736 
31737 
01740 
01741" 
_01742_ 
01743 
01744 
1)1745" 
01746 
0T74 7" 
_(>1750_ 
01751 
01752 
CI 1753 
01754 
01755" 
_C1756_ 
0175 7 
C1760 
0176V" 
I 762 
01763 
_01764_ 
01765 
01766 
01767 
017J0 
01771 
_00165 



._ .6060600 11 100 
7366bO~606060 

_6D606001U01 

00 777 7 777 777 
606060011104 
74 74 74 74 7474 
000003641100 
O60077777777 

_6060600lllll 

730104606060 

_ 606263464760 
605 1644 56060 

. .777700000000 
0(!0606000~144 

_000000000 764 

000000001750 
000000000062 
770000777777 

.007777000000 
bb'OdO 6" "06 135" 

_0_ 000 OOP 13 4_ 
06066 66134 



6 00000 
6 66066' 
00001 

6 00666" 

_o_ooooo 

06606" 

00000 

66662" 

00003 

00666 



00113 

6 66124"" 

6 00076 

6 66666" 
o_ooooo_ 
6 60000 
00000 
6 66621" 
00020 
6 6662V 




6 

6 

_0._3 000 3_0_C 10 0.2 4 

6 00066 6 06025" 
.Q-Ooqoo 00092 
6 oo66"5""6"66o2 5 

.9.P0006 00034 

6 ooo6V"6"ooo42 

.0_00000_0_00001 

00005 6 00007" 

.0 _ 00002. 0. .000 7 1 

6 00060 0" "00674 

.00003.. Q_ 00035 
00006 00037" 

500000000165 



10000 

16666" 

_10000_ 

16060 

10000 

16666" 

10060 

16666" 

_10000_ 

16066 

10000 

fo'666" 

10000 

"To dob" 

_ioooq_ 

16006 

10000 

16666"" 

10000 

10661 " 

.J.OOOl 

16661 

10001 

16661"" 

10061 

f 66 66"" 

.10000 
i 0600 
10000 
LOObl""' 
10001 

16601""' 

J 000 1 

ioooT 

10060 

lobbT" 

10001 

ioobi" 

10000_ 

ioo"oi 
-AQ001 

10061 
.10001 

10661 

01 1 1 1 



+ 18 
+ 19" 

+ 20 



OCT 

ocf" 

OCT 



+ 21 
♦22 

♦ 23 

♦ 24 
+25" 
+ 26 



OCT 
OCT 

ocf" 

OCT 

"o"c"f" 

OCT 



♦ 27 
+28 
+"29" 

♦ 30 
+ 31" 
+ 32 



OCT 

OCT 

OCT" 

OCT 

OCT" 

OCT 



+ 33 
+ 34 
+ 35" 
♦ 36 
+ 37" 
+ 38 



OCT 

OCT 

OCT" 

OCT 

PIE' 

pie 



606060011100 

73"00"6666"6"666" 

60 6060_0_l 1 101 

007777777777 
606060011104 
74 74"74747"474" 
000003641100 
"66667777T777" 

66 6 0J> 001 1 111 

730"! 04606060 

...606263464760 
66"5T64456"060~' 
777700000000 

66 do 6 6666 144" 

000000000764 



000000001750 

000000000062 

77 0666Y77777" 

007777000000 

2)RAfi+"o" 

RETPREM-2 



+ 39 PZE INSPRE/W 

-*-*9 _P_ZE. INTERNAL. TOTALS,, 

♦*1 PZE GRA"nD. TOTALS,"," 6 

-t*2 PZE INI : 0,,l 

♦*3 PIE l)0Af",V0" 

»** PZE PET A I L ,,0 



+45 

♦ 46 
+47 

♦ 49 

♦ 50 



♦ 51 
+ 52 

♦ 53" 

♦ 54 

♦ 55 
♦56 



+ 57 
+ 55 
+59 

♦ 60 

♦ 61 



PZE DEMPLOYEE. NUMBER,, 

-PZE 2JEMPL0YEE. NUMBER,, 

PZE 3)NAME,,2 " 

-PZE.. 3) EMPLOYEE ,,3_ 

PZE 4) MONTH," ib" 
±ZJ___4XDAY JJL 3 

PZE 4)YEAR,,0 
.PZE 1) HOURS, jO 

PZE HR"sr,5" 

-PZE. _2_>_BONDEDUCTION,,0 

PZE 2 > B 6 N 0~E N 0MI"n A tTo'n ', ", T " 

PZE HN AMF_ f _ t n_ 



PZE 
-P-Z.E... 
PZE 

-PZ.E-... 
PZE 
START 



2)NAME,,5 
.4JNAME, ,2 

3 ) BONOVNOMiNAf lONVro" 
J.NS.PREMj,3 

ret.pr"em, ,"6 

GNIOOQ 



J-HE. LAST LOADER .CCNJ.R_QL_.CARD PUNCHE.Q JS 

; *' :TfcN0 OAT"E"Toi"8"6rn"M"E' 



2.45 



CT PUBLICATIONS 



67 



REPORT OUTPUT FOR SAMPLE PROBLEM 



s 



PAYFILE REPORT 



01 1010 BLUTH 10-06-61 

DEPARTMENT 01. TOTALS. .. . 

02 1021 CASPEKIAN J 10-06-61 

DEPARTMEN T_0 2_T T A LS 

03 1721 CATLETT H 10-06-61 

DEPARTMENT 03 TOTALS,. 

04 1723 DORR D l°;?f7 61 

DEPARTMENT 04__TqTALS __ 

06 " 1 793 C A B AN R 1 0"° 6 " 6 1 

DEPARTMENT_06_LQIALS — 
10-06-61 



'Vd.6 i36.oo 

«,0.0 136_..q0_. 

20.6 106.66 
20.0 106.66 



07 1802 SMITH B 

07 1803..S0BEK.X _^ V ----AQ-PA 6l_ 

DEPARTMENT 07 TOTALS 

09 192* REYNOLDS, J -^^-"ir 

09" l"977 WILLIAMS P l0 ~°*~*t 

09l_97JL_R I CH_A RD D LPr 6^6_L 

"0lT"l980 WOO J 10-06-61 



31.0 
31.0 
32.5 
32._5. 
"40.6 
_40.0 
30.0 
40.0 
70. 6 
40.0 
"37.6 
40.0 



217.00 
217. 00_ 
"292". 50 
?9_2_.5Q_ 
94.00 
94.00 
87.00 
120._00 
"207.66 
399. 6 0_ 
~36~9~.63 
440.00 



"19.80 
19_._80. 
"16.86 
16.86 
36.72 
36.72 
" 47". 97 
47.97_ 
"16.92 
16.92 
13.32 
16.92 
30.24 
69.59 
59.51 
69.84 



0.00 

0.00 O.JDO 

3"."20 

3.20 0.00 



0.00 
0_. 00 
"2V6I 
2..01 

0.66 

0.00 
0.00 
0..00 

~o.~66 

0.00 

"6766 
0.00 



p_._qo. 
p_._oo. 
0.00 

4_.00 

"4. "66 

5.00_ 

"io'.'oo 



-DEPM.TMENT _g?__TQTA_LS J i< 



GT 



39.O 468.00 
156.0 _! 677 .2 3_ 
389.5 2730.39 



81.90 
280.84 
449.35 



"2^00 

2.00 

"3.00 

3.00 

3.00 

3.00 

'3.66 

3.00 

T.50 

1.50 

1.50 

2.00 

"3V56 

3.00 

"3.66 

3.00 



2.00 
2.00 

"3.60" 
3.00 
3.00 
3.00 

"3.00 
3.00 

"iVsd 

1.50 

1.50 

2.00_ 

3.50 

3.00 

"V. do 

3.00 



112.20" 
112.20. 

80.60 
_80.60_ 
174.28 
174.28 
236.52 
236.52 
74.08 
74.0 8. 
70.68 
95.08_ 
165.76 
319.01 
294. 12 
364.16 



.0.0.0. 

0.00 



.p._qq_ 

_p_._qo_ 

0.00 

"0.66" 



0.00 

0.00^ 

'"5.2.1 



17.00 3.00 

32.00 12.0Q_ 

36.66" 28.00 



3.00 363.10 

12_.00 13ftC 1-3? 

"28.6b""" 2l"8"6.63 



37.50 
37.50 
37.50 



CHECKFILE REPORT (partial) 



FMOKOLE REPCKT 



"lI6-~06-6l 

2WILL_I_AM?-J P__ 
" 110-06-61 

?*ICHAR0 D 



091977 
$294.12 

"091978" 
$364.16 



"MOflOOlAJAX T 

M0li0UBL00DSgE_.F.__. 
"M04l722dlCK" M 

M041791SHITH J 



110-06-61 

2W00__J_ 



091980 
$363.10 



"M051792J0NES F 
0061500100661400 

'M"d7l79"4MANb"ELI A 
M071801FUNGE J____ 

"D'6718'99 100661400 
M081921CRAMER P 



BON DOR DERH LE RE PORT 



091980 WCO J 



3750 100661 



M0819228AKER B 
M081923WJCKIW_I_CZ_J_ 
"m6919 _ 25MCCRE J 

M091926M0CRE_P_ 

"M09Y976WUFFE T 
M091981ZUGSE W 
D091983100661400 
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Appendix 90.08 



Compiler Use of Environment Description Options in Generation of 
Loader Symbolic Control Cards. 
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A. The *FILE Card 



The 
are 



fields of Loader *FILE symbolic control cards when generated by the Compiler 
ruled on the basis of options exercised on Environment FILE and SPECIF cards. 



Columns 

1-6 
7-11 
14-15 
17 



18-21 
22-25 
27 
28 



29 



30 



31 



32 



34 
35 



38-41 
44-48 
51-53 
54-72 



Contents 

deck. name 

*FILE 

file number 

tape mounting indicator 

blank 
* 

unitl 

unit2 

File List Control (blank) 

file type 

I - input 

T - total block output 

P - partial block output 

reel control 

blank - single reel unlabeled 

blank - not to be searched for iabel 

L - label to be searched for on 

labeled, open file only 
M - multi-reel unlabeled file 
File density 
H - high 
L - low 
file mode 
D- BCD 
B - binary 

labeling conventions 
H - high 
L - low 

S - same as file 

block sequence numbers to be checked 
block checksums to be checked 
checkpoint conventions 
C - on checkpoint file 
F - on specified file 

sequence number of first reel 
file serial number 
retention days 
file name 



Source of information 



$CMPLE 

Compiler emitted 
Compiler generated 
SPECIF - DEFER 

option specified 

option not specified 
SPECIF- UNIT1 'unit J ■ 
SPECIF - UNIT2 'unit.2' 
Compiler emitted 
FILE 

INPUT 

OUTPUT, SPANS 

OUTPUT 
SPECIF 

MULTI nor LABELS nor LABELN specif. 

LABELS or LABELN bu no OPENF 

OPENF and LABELS or LABELN 

MULTI, neither LABELS nor LABELN 
SPECIF 

HIGH 

HIGH 
FILE 

BCD 

BINARY 
SPECIF 

LABELS or LABELN and HIGH 

LABELS or LABELN and LOW 

LABELS or LABELN 
SPECIF - SEQ 
SPECIF - CKSUMS 
FILE and SPECIF 

FILE CHECKPOINT AND SPECIF CHKS 

FILE OUTPUT and SPECIF 

CHECKF and LABELS or LABELN 
SPECIF- REEL 'reelino' 
SPECIF - SERIAL 'serial.no' 
SPECIF- RETAIN days 
FILE - name field 
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B. The *SPEC Card 

The fields of the Loader *SPEC symbolic control cards generated by the Compiler 
are filled on the basis of options exercised on Environment FILE and SPECIF cards. 



Columns 



Contents 



Source of Information 



1-6 


deck. name 


$CMPLE card 


■ 7-11 


*SPEC 


Compiler emitted 


14 15 


file number 


Compiler generated 


17-20 


blocksize 


FILE- BLOCKSIZE nn 


22-23 


activity 


SPECIF - ACTIVITY nn 


25 


opening conventions 


SPECIF 




N - without rewind 


OPENW 




R or blank - with rewind 


OPENW not specified 


27 


closing conventions 


SPECIF 




N - without rewind 


CLOSEW 




R or blank - with rewind 


CLOSER 




U - with rewind and unload 


neither CLOSEW nor CLOSER 
specified 
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